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Presentación 


Gracias  a  un  esmerado  trabajo  de  selección, 
hemos  podido  reunir  el  mejor  conjunto  de 
programas  de  UTILIDADES  para  los 
Commodore  64/128,  aparecido  en  una  publicación  de 
nuestro  país. 


La  calidad  de  todos  y  cada  uno  de  los  programas, 
nos  animó  a  lanzar  el  VOLUMEN  II  de  nuestra 
BIBLIOTECA  COMMODORE  WORLD.  Y 
en  esta  ocasión,  acompañado  de  un  disco  que  contiene 
todas  las  UTILIDADES  y  sus  demostraciones.  Este 
magnífico  complemento  os  servirá  para  poder  utilizar 
los  programas  directamente,  sin  esperar  a  teclearlos. 
Lo  podéis  adquirir  junto  a  esta  publicación  o  por 
separado.  ¡¡Merece  le  pena!! 


En  cuanto  al  contenido,  es  de  lo  más  diverso.  Los 
campos  que  abarca  van  desde  la  música  o  los 
gráficos  hasta  el  código  máquina,  las 
ampliaciones  de  BASIC  y  las  mejores  herramientas  de 
disco.  Y  como  aplicación  práctica,  un  procesador  de 
textos  en  castellano,  escrito  totalmente  en  código 
máquina  y  superior  a  muchos  programas  comerciales 
de  este  tipo. 


La  mejor  sugerencia  que  podemos  haceros,  es  que 
utilicéis  estas  herramientas  para  potenciar 
vuestros  propios  programas.  Ampliar  vuestras 
aplicaciones  con  gráficos  y  sonido  será  muy  fácil  Y 
además,  empleando  estas  UTILIDADES  se  pueden 
crear  magníficos  programas  que,  en  forma  de 
colaboración,  tendremos  mucho  gusto  en  publicaros. 


Esperamos  que  este  VOLUMEN  ü  os  sirva  para 
aprovechar  más  vuestro  ordenador.  Ha  supuesto 
un  gran  esfuerzo  del  que,  estamos  seguros, 
sacaréis  buen  provecho.  Por  nuestra  parte  seguiremos 
desarrollando  los  proyectos  que  tenemos  sobre  otros 
temas. 


Germán  Pérez  Carrasco,  24. 
28027  Madrid 

Depósito  Legal:  M-2944-1984 


¡¡Que  disfrutéis  con  vuestro  Commodore  y  este 
ESPECIAL  UTILIDADES!! 
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CLAVE  PARA  INTERPRETAR  LOS  LISTADOS 


Todos  los  listados  que  se  publican  en  Commodore  World  han  sido 
cuidadosamente  comprobados  en  el  modelo  correspondiente  de  los 
ordenadores  Commodore. 

Para  facilitar  su  edición  y  para  mejorar  la  legibilidad  por  parte  del 
usuario  se  les  ha  sometido  a  ciertas  modificaciones  mediante  un  programa 
escrito  especialmente  para  ello.  Dado  que  los  ordenadores  Commodore 
utilizan  frecuentemente  las  posibilidades  gráficas  del  teclado,  se  han 
sustituido  los  símbolos  gráfioos,  así  como  movimientos  del  cursor,  códigos 
de  color,  etc.,  por  equivalencias  entre  corchetes  que  indican  la  secuencia 
de  teclas  que  se  debe  pulsar  para  obtener  dichos  caracteres.  A 
continuación  tenéis  una  tabla  con  dichas  equivalencias. 


CLAVE 

EQUIVALENCIA 

CRSRD 

CURSOR  ABAJO  (SIN  SHIFT) 

CRSRU 

CURSOR  ARRIBA  (CON  SHIFT) 

CRSRR 

CURSOR  DERECHA  (SIN  SHIFT) 

CRSRL 

CURSOR  IZQUIERDA  (CON  SHIFT) 

HOME 

CLR/HOME  SIN  SHIFT 

CLR 

CLR/HOME  CON  SHIFT 

SPC 

BARRA  ESPACIADORA 

DEL 

INST/DEL  Y  SHIFT+INST/DEL 

INST 

INST /DEL  CON  SHIFT 

BLK  A  YEL 

COLORES:  CONTROL  +  NUMERO 

RVS  ON 

CONTROL  +  9 

RVS  OFF 

CONTROL  +  0 

F1  A  F8 

TECLAS  DE  FUNCION 

FLCH  ARRIBA 

FLECHA  ARRIBA 

FLCH  IZQ 

FLECHA  A  LA  IZQUIERDA 

PI 

PI  (FLECHA  ARRIBA  CON  SHIFT) 

LIBRA 

LIBRA 

PARA  C-128 

BELL 

CONTROL  +  G 

TAB 

TAB  O  CONTROL  +  I 

LFEED 

LINE  FEED  O  CONTROL  J. 

TABLA  I 


El  resto  de  las  claves  constan  siempre  de  una  letra  o  símbolo  precedidos 
de  las  palabras  COMM,  SHIFT  o  CTRL;  por  ejemplo  [COMM+]  o 
[SHIFTA].  Esto  indica  que  para  obtener  el  gráfico  hay  que  pulsar  a  la 
vez  la  tecla  COMMODORE  (la  de  abajo  a  la  izquierda)  o  la  tecla 
SHIFT  (cualquiera  de  ellas)  junto  con  la  letra  o  símbolo  correspondiente, 
en  este  ejemplo  “+”  o  “A”. 

También  puede  aparecer  un  número  indicando  cuántas  veces  hay  que 
repetir  el  carácter.  [7  CRSRR]  equivale  a  siete  cursores  a  la  derecha  y 
[3  SPC]  a  tres  pulsaciones  de  la  barra  espadadora. 

COMO  UTILIZAR  LA  SUMA  DE  CONTROL 

Todos  los  listados  que  aparecen  en  la  revista  llevan  una  suma  de 
control  para  que  no  te  equivoques  a  la  hora  de  teclearlos.  Para  poder 
utilizar  esta  suma  de  control  tendrás  que  teclear  el  programa  que  aparece 
aquí  listado.  Se  llama  “Perfecto”.  Cuando  lo  hayas  tecleado,  compruébalo 
y  sálvalo  en  disco  o  dnta. 

Cada  vez  que  vayas  a  teclear  uno  de  los  programas  debes  cargar  antes  el 
programa  corrector.  Apunta  los  dos  valores  SYS  que  aparezcan  en  la 
pantalla,  pues  te  servirán  para  conectar  o  desconectar  el  programa  cuando 
quieras.  Si  tienes  que  teclear  una  demostración  para  una  ampliación  Basic 
has  de  ejecutar  el  “Perfecto”  después  de  ejecutar  la  ampliadón. 

Verás  que  a  la  derecha  de  todos  los  listados  aparece  un  punto  seguido  de 
un  número.  Eso  no  debes  teclearlo,  pues  en  tal  caso  el  programa  no  te 
funcionará.  Comienza  a  teclear  el  listado  normalmente.  La  única 
diferencia  que  notarás  es  que  al  pulsar  RETURN  aparecerá  un  asterisco 
seguido  de  un  número  de  una,  dos  o  tres  cifras  debajo  del  cursor.  Es  la 
suma  de  control.  Compárala  con  el  número  que  aparece  en  la  parte 
derecha  del  listado.  Si  es  el  mismo,  puedes  seguir  tecleando,  pero  si  es 
diferente  deberás  buscar  errores  en  la  línea  que  acabes  de  introducir. 
Observa  sobre  todo  los  siguientes  puntos: 

*  Los  espacios  sólo  se  tienen  en  cuenta  si  van  entre  comillas,  los  demás 
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los  puedes  omitir.  Si  tienes  problemas  con  alguna  línea  tecléala  tal  y 
como  aparece  en  el  listado,  ¡teniendo  en  cuenta  las  claves,  por  supuesto! 

*  Los  comandos  Basic  se  pueden  abreviar,  de  modo  que  puedes  poner  ? 
en  vez  de  PRINT  o  P[SHIFT  O]  en  vez  de  POKE. 

*  También  se  tiene  en  cuenta  el  número  de  línea.  Si  por  error  introduces 
la  línea  100  en  vez  de  la  1000,  por  ejemplo,  tendrás  que  teclear 
nuevamente  la  línea  100  (que  se  habrá  borrado)  y  a  continuación  la 
1000. 

Los  programas  para  C-128  debes  teclearlos  con  el  “Perfecto- 128” 
(aparece  en  todos  los  números  de  Commodore  World)  o  hacerlo  en 
modo  64  con  “perfecto”  y  luego  cargarlo  desde  modo  128. 


Antes  de  comenzar  a  teclear... 

Este  número  especial,  como  habrás  podido  comprobar,  está  lleno  de 
enormes-listados-llenos-de-datas.  Para  que  puedas  teclearlos  sin 
problemas  y  hacerlos  funcionar  correctamente,  sigue  los  siguientes  puntos: 
*  Antes  de  empezar,  lee  el  artículo.  Siempre  te  dará  indicaciones  sobre 
cómo  teclear  los  listados  y  a  continuación  grabarlos.  También  te  dirá  si  el 
programa  es  para  C-64/C-128  o  si  necesita  unidad  de  discos,  impresora  o 
datassette,  no  vaya  a  ser  que  te  lleves  alguna  sorpresa  después  de 
habértelo  tecleado. 

*  Utiliza  el  programa  “PERFECTO”  para  comprobar  las  sumas  de 
control.  Te  ahorrarás  un  montón  de  problemas,  sobre  todo  en  los 


1  "PERFECTO” 

1  POR  JAMES  E.  BORDEN,  RUN 
1  (C) 1986  COMMODORE  WORLD 


0  P=ML«L=24 

9  S-01  FORI=0TO6:  RE  ADA:  1  FA=- 1 THEN 1  é> 

10  I FA<  SOR A  >255THEN 1 4 

11  POKEP+I , A: S=S+A: NEXT 

1 2  RE ADSC ! I FS<  >SCTHEN 1 4 

13  L=L+ 1 : P=P+7 i GOT09 

14  PRINT "ERROR  EN  DATAS  LINEA" |LiEt 


16  POKEML+4 , PG  s  POKEML+ 1 0 , PG 

17  POKEML+ 1 6 , PG i POKEML+20 , PG 

1 8  POKEML+32 , PG  s  P0KEML+3B , PG 

19  POKEML+141 ,PG 

20  SYSMLi PRINT" CCRSRD1  [WHTJCORRECT 
OR  ACTIVADO 

21  PRINT"  SYS " ML " =CONECT AR 

22  PRINT"  SYS "ML+30"=DESCONECT ARICO 
MM7] 

23  i 

24  DAT  A 173 ,5, 3, 201 ,3,208, 1 ,594 

25  DAT A96 ,141,1 05 ,3,1 73 ,4,3, 525 

26  DATA1 41, 104, 3, 162, 103, 160, 3, 676 

27  DATA142, 4, 3, 140,5,3,96,393 

2B  DATA234 ,234,173,104,3,141,4, 893 

29  DATA3, 173, 105,3, 141,5,3,433 

30  DATA96,32, 124,165, 132,1 1 , 162,722 

31  DATA0, 142,240,3, 142,241 ,3,771 

32  DATA1B9, 0,2, 240, 51 ,201 ,32,715 

33  DATA208, 4, 164,212,240,40,201 , 106 


7  DATA104,24,72,24, 104, 16, 1 ,341 
3  DATA56, 42, 136, 16,246, 109,240, 
í  DATA3, 141 ,240,3,232,208,200, ] 
3  DATA173, 240, 3, 24, 101, 20,24,51 

1  DATA101 ,21,141, 240,3, 169, 42 , y 

2  DATA32, 210, 255, 169,0, 174,240, 

5  DATA3,32,205, 189, 162,4,189,71 
i  DATA21 1 ,3,32,210,255,202, 16, S 
5  DAT A247 , 1 64 ,11, 96 , 1 45 ,13, 32 , 1 
j  DATA32, 0,0, 0,0, 0,0, 32,-1 


programas  con  DATAs.  Mira  la  página  5  para  más  información  sobre  su 
funcionamiento. 

*  No  te  olvides  que  en  la  gran  mayoría  de  los  programas  hay  que  hacer 
unos  POKEs  antes  de  comenzar  a  teclear  (o  antes  de  cargarlo  de 
cinta/disco  si  lo  introduces  por  partes).  Sirven  para  mover  la  zona  donde 
el  programa  Basic  va  a  ser  almacenado  y  permitir  así  “generar”  luego  un 
programa  en  código  máquina  que  se  ejecute  con  RUN. 

*  Como  siempre,  ten  en  cuenta  las  equivalencias  de  las  claves  (ver  página 
5)  cuando  teclees  los  programas. 

*  Graba  los  programas  con  el  nombre  que  aparece  en  la  cabecera  del 
listado,  te  ayudará  a  localizarlos  más  fácilmente.  Grábalos  siempre 
ANTES  de  hacer  RUN;  muchos  se  auto-destruyen  al  ejecutarse. 

*  Es  conveniente  que  teclees  los  programas  de  demostración;  primero 
para  asegurarte  de  que  el  programa  funciona  correctamente  y  segundo 
para  “aprender  sobre  la  marcha”.  Es  la  mejor  manera. 

Si  aún  siguiendo  todos  estos  consejos  un  programa  no  te  funciona... 

1.  Comprueba  que  no  te  has  dejado  ninguna  línea. 

2.  Repasa  las  sumas  de  control  (es  más  rápido  si  lo  haces  de  abajo  a 
arriba). 

3.  Vuelve  a  leer  el  artículo  para  ver  si  dice  algo  sobre  cómo  tienes  que 
hacerlo  funcionar  o  si  necesita  otras  partes. 

4.  Si  nada  de  lo  anteriormente  dicho  funciona:  llámanos;  aceptaremos 
que  nos  envíes  una  cinta  o  disco  (preferiblemente  esto  último)  con  el 
programa  que  no  te  funciona  para  que  que  te  lo  grabemos  corregido. 

Dos  programas  muy  útiles 

Para  haceros  más  llevadera  la  ardua  tarea  de  teclear  los  listados  que 
aparecen  en  este  especial  tenemos  dos  programas  que  os  serán  de  gran 
ayuda. 

El  primero  es  un  “teclado  hexadecimal”.  Apareció  publicado  en 
Commodore  World  en  el  número  13  (página  XX,  para  más  señas). 
Convierte  una  zona  del  teclado,  las  teclas  “mjkluio7896”  y  “:;p@0+”  en 
un  teclado  numérico  y  hexadecimal  como  el  de  las  calculadoras.  Alguién 
acostumbrado  a  teclear  números  de  esta  manera  puede  gánar  mucho 
tiempo.  Se  conecta  con  SYS  828.  Para  poder  acceder  al  teclado 
hexadecimal  se  deben  pulsar  a  la  vez  las  teclas  CONTROL  y 
COMMODORE.  El  borde  cambiará  de  color  y  podrás  utilizar  el  nuevo 
teclado.  Pulsando  CONTROL  y  COMMODORE  de  nuevo  se 
desconecta  y  vuelves  al  modo  normal.  Las  equivalencias  de  las  teclas  las 
tenéis  al  principio  del  listado. 

El  segundo  es  un  programa  que  acelera  la  lectura  de  los  DATAs  en  los 
programas  generadores.  Dado  que  están  en  hexadecimal  (así  los  listados 
ocupan  un  22  por  ciento  menos)  se  utiliza  un  conversor  hexadecimal- 
decimal,  la  subrutina  de  la  línea  6.  Esta  rutina  enlentece  enormemente  el 
programa,  y  aunque  sólo  hay  que  ejecutarlo  una  vez  (siempre  se  puede 
grabar  aparte  el  c.m.)  si  tienes  que  comprobar  algún  error  perderás 
mucho  tiempo. 

La  rutina  convierte  una  cadena  de  dos  bytes  a  decimal  y  hace  el  POKE 
en  la  posición  correspondiente.  La  sintaxis  es:  SYS828,X,H$  donde  X  es 
la  posición  de  memoria  donde  vas  a  hacer  el  POKE  y  H$  la  cadena  que 
contiene  los  dos  bytes  en  hexadecimal.  Ejemplo: 

A$=“0A”:SYS828, 1 024, A$  coloca  una  “J”  en  la  pantalla.  Para  cambiar 
el  convertidor  Basic  por  este  haz  lo  siguiente: 

En  la  línea  donde  aparece  la  expresión  “V=0:  GOSUB6:  POKEI,V: 
S=S+V”  cámbiala  por  “RED  A$:SYS828,1,A$  S=S+PEEK  (1)”.  Si 
ya  tienes  comprobada  la  suma  de  control  puedes  ahorrarte  el 
S=+PEEK  (1).  Verás  cómo  se  acelera  considerablemente  el  proceso. 
¡OJO!  si  estás  trabajando  con  el  teclado  haxadecimal,  antes  de  cargar  este 
programa  tienes  que  desconectarlo  con  RUN/STOP  RESTORE,  dado 
que  se  coloca  en  las  mismas  posiciones. 


I ERROR  EN  DATOS! 

5  END  .  7 

6  READH*:GOSUFi/:  V=V*16i H*=MID* <H* ,2  .  2»6 


7  X=ASC(H*) :V-V+X+48*<X<64H-55»(X>*  .63 
4 ) i RETURN 


EL  CARGADOR  MODIFICADO  PARA  HACER  LOS 
POKES  EN  CODIGO  MAQUINA 

1  A=2049  .113 

2  B=3202  .  66 

3  FORI=ATOB:READA*:SYSB2B, I .A*:S=S*  .87 
PEEKtl) : NEXT  s  READT : IFS< >TTHENPR I NT • 
CRVSONIERROR  EN  DATAS! 

5  END  .7 
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Presenta:  la  tableta  gráfica 

GRAFPAD  II- 


LO  ULTIMO  EN  DISPOSITIVOS  DE  ENTRADA  DE  GRAFICOS 
PARA  AMSTRAD,  COMMODORE  Y  BBC 


ESPECIFICACIONES 

RESOLUCION: 

1.280  x  1.024  pixels. 

PRECISION: 

TASA  DE  SALIDA: 

2.000  pares  de  Coordenadas  por 
segundo. 

INTERFACE: 

paralelo. 

ORIGEN: 

borde  superior  izquierdo  o 
seleccionable. 

DIMENSIONES: 

350  x  260  x  12  mm. 
DISPONIBLE: 

AMSTRAD 

CASSETTE  23.900  pías. 

DISCO  25.900  pías. 

COMMODORE 

CASSETTE  19.900  pías. 

DISCO  19.900  pías. 

(IVA  NO  INCLUIDO) 


La  primera  tableta  gráfica,  de  bajo  costo,  en  ofrecer  la  duración  y  prestaciones  requeridas  por  las 
aplicaciones  de  negocios,  industria,  hogar  y  educación.  Es  pequeña,  exacta  y  segura.  No  necesita 
ajustes  ni  mantenimiento  preventivo.  GRAFPAD  II  es  un  producto  único  que  pone  la  potencia  de 
la  tecnología  moderna  bajo  el  control  del  usuario. 


DIBUJO  A  MANO  ALZADA 
SOFTWARE  DE  ICONOS 


DISEÑO  DE  ARQUITECTURA 
CON  SOFTWARE  DDX 


FACIL  DE  USAR. 

TRAZADO  PCB. 

C.A.D. 

AREA  DE  DISEÑO  DIN  A4. 
COLOR  EN  ALTA 
RESOLUCION. 

USO  EN  HOGAR  Y 
NEGOCIOS. 

VARIEDAD  DE  PROGRAMAS 
DISPONIBLES. 

DIBUJO  A  MANO  ALZADA. 
DIAGRAMAS  DE  CIRCUITOS. 


COMBINA  EN  UN  UNICO  DISPOSITIVO  TODAS  LAS 
PRESTACIONES  DE  LOS  INTENTOS  PREVIOS  DE 


MECANISMOS  DE  ENTRADA  DE  GRAFICOS.  LAS 
APLICACIONES  SON  MAS  NUMEROSAS  QUE  EN  LOS 
DEMAS  DISPOSITIVOS  COMUNES  E  INCLUYEN: 

selección  de  opciones  entrada  de  modelos  recogida  de 
datos  diseño  lógico  diseño  de  circuitos  creación  de 
imágenes  almacenamiento  de  imágenes  recuperación  de 
imágenes  diseño  para  construcción  C:A.D.  (diseño  asistido 
por  ordenador)  ilustración  de  textos  juegos  diseño  de 
muestras  educación  diseño  PCB. 


Avda.  Isabel  II,  16  -8a 
Tels.  455544  -  455533 
Télex  36698 

20011  SAN  SEBASTIAN 


CONDICIONES  ESPECIALES  PARA  DISTRIBUIDORES 
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RUNSCRIPT 


Por  Robert  Rockefeller 


Runscript  64  es  un  procesador 
de  textos  diseñado  especialmente 
para  los  lectores  de  RUN  (nuestra 
revista  hermana  norteamericana). 
Es  fácil  de  usar  y,  como  está  escrito  comple¬ 
tamente  en  código  máquina,  es  muy  rápido. 

Runscript  64  te  ofrece  unas  70  funciones, 
muchas  de  las  cuales  te  serán  conocidas,  y  el 
resto  de  las  cuales  he  intentado  hacerlas  lo 
más  intuitivas  posible.  Aprender  a  utilizar  el 
programa  es  fácil  porque  la  mayoría  de  las 
teclas  de  edición  son  las  mismas  que  las  que 
se  utilizan  en  el  editor  Basic. 

Leer  el  texto  en  pantalla  es  también  muy 
fácil,  porque  Runscript  64  funciona  de  la 
manera  siguiente:  si  una  palabra  es  dema¬ 
siado  larga  para  el  espacio  que  queda  en  una 
línea,  no  será  cortada,  sino  que  el  programa 
la  trasladará  al  principio  de  la  línea  siguiente. 

Runscript  utiliza  la  primera  línea  de  la 
pantalla  para  mostrar  mensajes,  errores  y 
modos  de  operación.  Por  ejemplo,  cuando 
estás  en  el  modo  Insertar,  aparecerá  un  men¬ 
saje  *INS*  en  la  línea  de  comandos. 

Con  esto  te  quedan  libres  24  líneas  de  pan¬ 
talla  para  poder  ver  tu  texto.  Unos  40.000 
bytes  quedan  libres  para  almacenar  escritos. 


He  aquí  Runscript  64, 
un  procesador  de 
textos  para  el 
Commodore  64. 
Ofrece  muchas 
posibilidades,  es  muy 
flexible  y  fue 
diseñado 

especialmente  para 
vosotros,  los  lectores. 


Pulsando  las  teclas  cursor  izquierda/ dere¬ 
cha  puedes  mover  el  cursor  en  horizontal  por 
la  zona  del  texto,  de  nuevo  con  una  pequeña 
diferencia  respecto  al  Basic.  La  diferencia  es 
que,  gracias  a  la  posibilidad  de  partición  de 
palabras  del  Runscript,  las  líneas  tienen 
cualquier  longitud  entre  uno  y  treinta  y  nueve 
caracteres.  Los  espacios  que  quedan  hasta  el 
final  de  la  línea  se  ponen  de  “relleno",  pero 
no  existen  realmente  en  el  texto.  Sobre  estos 
espacios  es  imposible  escribir. 

SHIFT  RETURN.—  Esta  combinación  de 
teclas  mueve  el  cursor  al  principio  de  la 
siguiente  línea,  exactamente  como  en  Basic. 

HOME. —  Pulsando  la  tecla  HOME  una 
vez  el  cursor  se  mueve  a  la  esquina  superior 
izquierda  de  la  pantalla.  Pulsándola  de 
nuevo  el  cursor  se  mueve  al  principio  del 


CTRL-FLECHA  IZQUIERDA.-  Pul¬ 
sando  la  tecla  CTRL  junto  con  la  tecla 
FLECHA  IZQUIERDA  el  cursor  se  mueve 
a  la  esquina  inferior  izquierda,  y  si  se  pulsa 
dos  veces,  al  final  del  texto. 


Anular  operaciones 

Puedes  anular  casi  cualquier  operación, 
incluyendo  grabación  y  lectura  de  tex¬ 
tos,  pulsando  a  la  vez  las  teclas  CTRL  y 
COMMODORE  (la  del  logotipo).  La  única 
operación  que  no  puedes  detener  es  buscar- 
reemplazar,  a  menos  que  lo  hagas  durante  algunas  de  las  preguntas 
que  te  hace  (ver  más  adelante). 

En  Runscript,  la  tecla  RESTORE  actúa  como  una  tecla  de  “emer¬ 
gencia”,  devolviéndote  de  donde  quiera  que  estés  al  modo  texto  nor¬ 
mal.  No  hace  falta  pulsar  la  tecla  RUN/ STOP  a  la  vez. 

Desplazar  el  cursor 

El  cursor  está  restringido  al  área  de  texto,  lo  que  significa  que  sólo 
puedes  moverte  por  el  texto  que  ha  sido  tecleado.  Siete  teclas 
actúan  sobre  el  cursor:  las  cuatro  del  cursor,  la  tecla  HOME, 
CTRL/ FLECHA  IZQUIERDA  y  SHIFT/ RETURN.  Estas  dos 
últimas  han  de  pulsarse  a  la  vez. 

Teclas  del  cursor.—  Pulsando  las  teclas  cursor  arriba/ abajo  puedes 
hacer  scroll  por  la  zona  del  texto.  Estas  teclas 
tienen  la  misma  función  que  en  Basic, 
excepto  que  cuando  haces  scroll  arriba  o 
abajo  sólo  puedes  llegar  al  principio  o  final 
del  texto,  no  más  allá.  Por  esta  razón  nunca 
puedes  sacar  el  texto  completamente  de  la 
pantalla. 


Insertar  texto 

Hay  tres  métodos  mediante  los  cuales  pue¬ 
des  insertar  texto  con  Runscript  64. 


SHIFT-INST.—  Pulsando  las  tedas 
SHIFT  e  INST  a  la  vez  se  inserta  un  espacie 
en  la  posición  del  cursor,  exactamente  como  en  Basic. 

CTRL-I.—  Con  estas  teclas  entras  y  sales  del  modo  snserac 
Estando  en  este  modo,  cualquier  carácter  que  teclees  es  insertaos  en 
la  posición  del  cursor.  Sabrás  cuándo  estás  en  este  modo  jmqmt 
aparece  el  mensaje  *INS*  en  la  línea  de  comandos. 

RUN/STOP.—  Cuando  tienes  que  insertar  mucho  rexte  a 
comienzo  de  un  escrito  muy  largo,  CTRL-I  y  SHIFT-INST  ser 
demasiado  lentos,  porque  tienen  que  mover  todo  el  texto  para  inser¬ 
tar  un  solo  carácter,  el  microprocesador  6510  del  C-64  no  es  tan 
rápido  como  para  hacer  esto  mientras  tú  tecleas.  Pulsando  ia  teda 
RUN /  STOP  se  inserta  un  bloque  de  200  espacios,  indicado  por  Hacas 
sólidas  (espacios  subrayados)  sobre  las  cuales  puedes  imrodonr 
texto.  Si  tienes  que  introducir  más  de  200  caracteres,  paisa  la  leda 
RUN /  STOP  varias  veces  hasta  que  obtengas 
el  espacio  libre  que  necesitas 


SHIFT-RUN/STOP.-  Esta  combinación 
es  lo  contrario  a  la  tecla  RUN  STOP,  pues 
borra  un  bloque  de  lineas  "sólidas".  Para 
eliminar  estas  lineas,  simplemente  colócate  al 


C-64 

UNIDAD  DE  DISCO 
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principio  del  bloque  y  pulsa  la  tecla  RUN/ STOP  junto  con  SHIFT. 


Borrar  texto 

Hay  tres  métodos  para  borrar  texto. 

DEL.—  Pulsando  la  tecla  DEL  se  borra  el  carácter  a  la  izquierda 
del  cursor  y  el  cursor  se  desplaza.  Igual  que  en  Basic. 

F8.—  Pulsando  la  tecla  F8  también  borras  un  carácter,  sólo  que  es 
el  que  está  debajo  del  cursor,  que  no  se  mueve. 

F7.—  Algunas  veces  tienes  que  borrar  muchas  líneas  a  la  vez, 
y  hacerlo  carácter  a  carácter  sería  una  tarea  interminable.  Lo  que  nece- 


Runscript  64, 


procesador 

de 


100% 

Código 

Máquina. 


Sitúa  el  cursor  y  pulsa  la  tecla  RETURN.  Esto  permite  hacer  copias 
múltiples  del  contenido  del  buffer. 

Para  copiar  una  porción  de  texto  en  otro  lugar  pulsa  F6  después  de 
haber  posicionado  el  cursor  al  principio  del  bloque.  Mueve  el  cursor 
hasta  el  final  del  bloque  y  pulsa  RETURN.  A  continuación  muévete 
hasta  el  nuevo  lugar  de  inserción  y  pulsa  de  nuevo  RETURN. 

Buscar  y  reemplazar 

Fl- —  Para  buscar  una  cadena  que  se  encuentre  entre  la  posición  del 
cursor  y  el  final  del  texto  pulsa  F2.  Aparecerá  el  mensaje 
“cadena-buscar”.  Teclea  la  secuencia  de  caracteres  que  quieras  bus¬ 
car,  pero  haz  que  comience  y  termine  con  cualesquiera  caracteres 
extra  —que  serán  ignorados—  (por  ejemplo,  :COLOR:).  Si  se 
encuentra  la  cadena,  el  cursor  aparecerá  encima  de  ella.  Si  no,  apare¬ 
cerá  el  mensaje  “no  existe  cadena". 

F4.—  Hay  dos  maneras  de  buscar  y  reemplazar.  Si  pulsas  la  tecla 
F4  dos  veces  rápidamente,  el  ordenador  te  preguntará  por  una  cadena 
a  buscar  y  otra  a  reemplazar  (recuerda  que  los  caracteres  primero  y 
último  son  ignorados).  Después  de  haber  hecho  esto,  se  reemplazarán 
todas  las  cadenas  del  texto  que  concuerden  con  la  que  tu  has  seña¬ 
lado.  Si  pulsas  F4  una  vez,  el  ordenador  te  hará  las  mismas  preguntas, 
pero  te  pedirá  una  confirmación  antes  de  hacer  cada  sustitución. 


Cambiar  los  colores  de  la  pantalla 


P 

X  ara  cambiar  los  colores  del  texto  se  utilizan  las  siguientes  teclas: 


DIRECCION  LIMITE  DE  ME MOR I A  ?  53247 

üü^£r?EopÉ^e§¿5?  ?R¿HC,PftL 

ELIGE  ?g?28gSRR§zSoaSSÍ¿RESíft?DÉRD? 

g¡gs^|T¡SK5AgEüe«feé85  FEED  DESPÜES  ->E 

iüHXgXft  PftRftCPftSftRSflCM0D0RIft  DE  Lfl 

DIRECCION  SECUNDAR I A  COMANDOS  ?  ü 


Algunas 

preguntas 

del 


programa 

Generador 


sitas  entonces  es  una  función  “borrar  bloque”.  Coloca  el  cursor  sobre 
el  primer  carácter  del  bloque  de  texto  que  quieres  borrar  y  pulsa  F7. 
El  mensaje  “borrar  bloque”  aparecerá  en  la  línea  de  comandos. 
Entonces,  mueve  el  cursor  al  final  del  bloque  y  pulsa  la  tecla 
RETURN.  El  bloque  de  texto  será  borrado,  pero  todavía  no  lo 
habrás  perdido  completamente. 

El  bloque  es  copiado  en  un  buffer  al  final  de  la  memoria.  Si  decides 
que  no  debiste  haberlo  borrado,  pulsa  la  tecla  F6  dos  veces  rápida¬ 
mente  (aparecerá  un  mensaje  “elige  lugar  inserción”),  mueve  enton¬ 
ces  el  cursor  al  principio  de  la  zona  que  borraste  y  pulsa  la  tecla 
RETURN.  El  texto  quedará  en  su  lugar  como  si  nada  hubiera  suce¬ 
dido.  Si  accidentalmente  pulsas  F7  puedes  anular  la  orden  pulsando 
las  teclas  CTRL-COMMODORE  a  la  vez. 

Mover  y  copiar  texto 

F5.—  Para  mover  un  bloque  de  texto,  coloca  el  cursor  al  principio 
y  pulsa  F5  (aparecerá  un  mensaje  “mover  bloque”).  A  continua¬ 
ción  coloca  el  cursor  en  el  último  carácter  y  pulsa  la  tecla  RETURN. 
El  texto  se  borra  y  se  guarda  en  el  buffer.  Ahora  aparece  un  mensaje 
“elige  lugar  inserción”.  Coloca  el  cursor  en  el  lugar  donde  quieres 
insertar  el  texto  y  pulsa  la  tecla  RETURN  para  ejecutar  la  operación. 

F6. —  Hay  dos  formas  de  copiar  texto  usando  F6  Pulsándola  dos 
veces  rápidamente  aparece  un  mensaje  “elige  lugar  de  inserción”. 


CTRL— 1  para  cambiar  el  color  del  texto. 

CTRL— 2  para  cambiar  el  color  del  fondo. 

CTRL— 3  para  cambiar  el  color  de  la  linea  de  mensajes. 
CTRL— 4  para  cambiar  el  color  del  borde. 

Funciones  diversas 

RETURN.—  Pulsando  la  tecla  Return  en  modo  texto  colocas 
una  señal  “fin  de  párrafo”  al  final  de  la  línea.  No  necesitas 
pulsarla  al  final  de  cada  linea  de  pantalla  (como  sucedía  en  una 
máquina  de  escribir)  sino  al  final  de  cada  párrafo.  La  señal  de  fin  de 
párrafo  es  una  flecha  a  la  izquierda. 

CTRL-X.—  Esta  combinación  intercambia  los  dos  caracteres  que 
estén  a  la  izquierda  del  cursor.  Es  un  método  rápido  para  cuando 
“bailas”  las  letras. 

CTRL-FLECHA  ARRIBA. —  Esta  tecla  permite  el  paso  al  modo 
CAPS  LOCK  mayúsculas).  Cuando  el  mensaje  *MAY*  está  en  la 
líneas  de  mensajes,  todos  los  caracteres  que  teclees  aparecerán  en 
mayúsculas,  como  si  los  pulsaras  con  SHIFT.  Esto  permite  introducir 
mayúsculas  y  números  a  la  vez,  sin  tener  que  tocar  siquiera  la  tecla 
SHIFT. 

CTRL-=.—  Como  Runscript  no  corta  las  palabras  al  final  de  las 
líneas,  es  difícil  saber  cuántos  espacios  hay  realmente  en  el  texto.  Para 
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remediarlo,  es  posible  cambiar  esos  “espacios  fantasmas”  por  cual¬ 
quier  otro  carácter.  Aparecerá  un  mensaje  *CHR*  en  la  línea  de 
comandos,  teclea  el  carácter  que  vayas  a  utlizar.  Personalmente  me 
gusta  bastante  el  que  se  obtiene  con  COMMODORE  y  +. 

La  tecla  F1 

La  tecla  F1  actúa  como  una  tecla  para  acceder  a  los  diferentes  co¬ 
mandos  y  funciones,  como  salvar  y  leer  texto,  etc.  Pulsa  la  tecla 
F1  una  vez  y  aparecerá  el  mensaje  “comando?”  en  la  línea  superior  de 
la  pantalla.  Introduce  la  letra  correspondiente  al  comando  que  quie¬ 
ras  ejecutar,  según  la  lista  que  viene  a  continuación. 

D.—  Selecciona  el  periférico  en  el  que  se  va  a  realizar  la  grabación 
y  lectura  de  ficheros.  Puede  ser  el  8  ó  el  9.  El  periférico  por  defecto  es 
el  drive  8. 

Salvar  y  reemplazar,  (el  fichero  viejo  se  borra  y  a  continua¬ 
ción  se  graba  el  nuevo,  con  lo  que  se  elimina  el  “bug”  que  tiene  el 
DOS  de  la  unidad  de  discos. 

S.—  Salvar  texto. 

L.-  Leer  texto. 

A.—  Lee  un  fichero  y  lo  coloca  a  partir  de  la  posición  del  cursor,  en 
vez  de  al  principio,  como  hace  “L”  (esto  no  se  puede  hacer  con  los 
ficheros  secuenciales). 

T.—  Selecciona  si  los  caracteres  de  salida  han  de  enviarse  como 
ASCII  standard  o  ASCII  Commodore.  Algunas  impresoras  no- 
Commodore  utilizan  valores  diferentes  (en  realidad  es  el  standard 
internacional)  para  los  códigos  ASCII.  Por  ejemplo,  el  ASCII  para  la 
letra  “a”  es  $97,  mientras  que  en  Commodore  es  $41. 

W.—  Salva  el  texto  en  disco  como  un  fichero  secuencial  o  de 
usario.  Si  lo  quieres  como  secuencial,  añade  “,S,W”  al  final  del  nom¬ 
bre  o  “,U,W”  si  lo  quieres  como  fichero  de  usuario.  Si  vas  a  cambiar 
el  tipo  de  fichero  entre  una  lectura  y  una  escritura,  tendrás  que  cam¬ 
biar  también  el  nombre  del  fichero.  También  puedes  salvar  y  reem¬ 
plazar  añadiendo  “@0:”  antes  del  nombre,  pero  no  es  buena  idea  a 
causa  del  “bug”  en  el  DOS  de  la  1541. 

R.—  Lee  un  fichero  secuencial  o  de  usuario  desde  el  disco.  Sim¬ 
plemente  introduce  el  nombre  del  fichero  cuando  te  lo  pregunte  el 
ordenador.  Si  estás  en  modo  *TRU*  (ASCII  standard),  debes  leer  el 
fichero  en  ASCII  standard  o  las  mayúsculas  aparecerán  invertidas. 
Del  mismo  modo,  si  estás  en  ASCII  Commodore  debes  leer  ASCII 
Commodore. 

Las  funciones  R  y  W  están  preparadas  para  hacer  compatible  a 
Runscript  con  otros  procesadores  de  textos,  como  Easy  Script,  Viza 
Write,  etc. 

$.—  Lista  el  directorio  del  disco.  Puedes  detenerlo  pulsando  la  tecla 
Commodore  y  terminar  pulsando  RUN/STOP.  Para  volver  al  modo 
texto  pulsa  CTRL  y  COMMODORE  a  la  vez. 

<.—  Enviar  comando  al  disco. 

>. —  Leer  el  canal  de  error  del  disco. 

F.—  Indica  el  número  de  bytes  libres. 

X.—  Vuelve  al  Basic. 

P.—  Imprimir  texto.  Después  de  elegir  esta  función,  te  preguntará 
cuántas  copias  quieres  (hasta  99).  Después  te  preguntará  el  número  de 
periférico,  que  puede  ser  3  para  la  pantalla,  4  ó  5  para  la  impresora,  u 
8  ó  9  para  el  disco. 

Si  eliges  disco,  la  impresión  comienza  inmediatamente.  Si  no  tienes 
impresora,  puedes  utilizar  esta  opción  para  pasarle  el  fichero  en  disco 
a  un  amigo  que  sí  tenga  impresora. 

Si  eliges  pantalla  o  impresora,  hay  dos  maneras  de  dar  salida  al 
texto.  Un  mensaje  “continuo  (s/n)?”  aparecerá  en  la  línea  de  coman¬ 


dos.  Si  respondes  “N”,  te  preguntará  “próxima  página?  (c/  p  /  s)”  des¬ 
pués  de  cada  página.  De  este  modo,  puedes  utilizar  hojas  sueltas  en  tu 
impresora.  Si  entras  “C”  para  “continuo”  la  impresión  se  hará  conti¬ 
nua  a  partir  de  ese  punto.  Si  pones  “P”  para  impresora,  la  siguiente 
página  se  enviará  a  la  impresora  o  si  pones  “S”  a  la  pantalla.  Esto 
hace  que  la  salida  por  impresora  sea  algo  muy  flexible. 

Cuando  el  texto  se  está  imprimiendo  en  la  pantalla,  puedes  dete¬ 
nerlo  pulsando  la  tecla  COMMODORE.  Puedes  terminar  pulsando 
CTRL/ COMMODORE.  La  salida  por  pantalla  te  puede  servir  para 
ver  cuándo  van  a  quedar  cortadas  las  páginas.  Es  recomendable  que 
lo  hagas  antes  de  imprimir  el  texto. 

Comandos  de  punto 

Runscript  es  un  procesador  de  texto  “post-formateado”.  Esto  quie¬ 
re  decir  que  lo  que  ves  en  pantalla  puede  variar  respecto  a  lo  que 
va  a  salir  por  la  impresora.  Para  especificar  el  formato  de  salida 
Runscript  tiene  21  “comandos  de  punto”,  llamados  así  porque  cada 
comando  va  precedido  de  un  punto.  Estos  comandos  se  colocan  en  el 
texto  para  especificar  márgenes,  cabeceras,  pie  de  páginas  y  demás. 

Un  comando  de  punto  se  ejecuta  sólo  cuando  el  texto  está  siendo 
impreso,  y  sólo  afecta  al  texto  que  está  a  continuación  del  comando. 
Por  ejemplo,  si  los  márgenes  no  han  sido  ajustados  hasta  la  mitad  de 
la  página,  el  texto  del  principio  probablemente  no  estará  bien 
encolumnado. 

Para  que  los  comandos  de  punto  sean  interpretados  correctamente, 
hay  que  añadir  ciertos  pasos.  Primero,  la  línea  anterior  a  un  comando 
de  punto  ha  de  acabar  con  un  retorno  de  carro.  Segundo,  el  comando 
ha  de  estar  completamente  a  la  izquierda  de  la  línea,  en  la  primera 
columna.  Los  comandos  de  punto  no  pueden  ir  precedidos  de  espa¬ 
cios  o  cualquier  otro  carácter.  Tercero,  puede  haber  más  de  un 
comando  en  cada  línea,  pero  no  deben  ir  separados  por  espacios. 
Cuarto,  una  línea  de  comandos  de  punto  ha  de  terminar  con  un 
retorno  de  carro.  He  aquí  un  ejemplo: 
.pw80.pl66.lm6.rm6.tm4.bm4.lj 
He  aquí  la  lista  de  comandos  de  punto: 

,LJ  —  El  texto  quedará  justificado  a  la  izquierda. 

.RJ  —  El  texto  quedará  justificado  a  la  derecha. 

,CN  —  El  texto  quedará  centrado  entre  ambos  márgenes.  Cuando 
se  quiera  terminar  de  centrar  se  utiliza  LJ  o  RJ  (ver  arriba). 

.PL  —  Determina  la  longitud  de  la  página.  Debe  ir  seguido  de  un 
número  entre  I  y  240,  que  indique  cuántas  lineas  completas  hay  en 
una  página.  La  mayoría  de  las  impresoras  trabajan  con  66  lineas  por 
página.  Ejemplo:  .pw60 

.PW  —  Determina  la  anchura  de  la  página.  Es  el  número  ir.av  - . 
de  caracteres  que  entran  en  una  línea.  La  mayoría  de  las  impresoras 
trabajan  con  80  caracteres.  Si  quieres  utilizar  diferentes  anchos  z »rr  - 
tamaño  de  los  tipos  de  letra  de  tu  impresora)  tendrás  que  utú^rjr  esae 
comando.  Ejemplo:  .pwl32 

.LM  —  Margen  izquierdo.  Debe  ir  seguido  de  un  numr:  em 
240  que  indica  el  número  de  caracteres  que  hay  que  c-eyi*  n  r 
margen.  Ejemplo:  lm8 

.RM  —  Margen  derecho.  Igual  que  el  izquierdo.  Ejerrr.:  — - 

.TM  —  Margen  superior.  Indica  el  número  de  lineas  que  q-rc_- 
vacías  al  principio  de  página.  Ejemplo:  .tm5 

.BM  —  Margen  inferior.  Número  de  lineas  en  blanco  que  q 
al  final  de  la  página.  Ejemplo:  .bm6 

La  suma  de  TM  y  BM  ha  de  ser  menor  que  la  kmgMd  de  b  papú. 

.HD  —  Define  una  cabecera  para  ser  imprimida  ai  principio  de 
cada  página.  Puede  tener  hasta  255  caracteres  >  ha  de  terminar  con  un 
retorno  de  carro  (que  no  se  considera  parte  de  la  cadena).  No  puede  ir 
seguido  de  ningún  comando,  porque  se  interpretaría  como  parte  de  la 
cabecera. 
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Por  esta  razón,  para  mejorar  la  legibilidad,  es  recomendable  que 
•  HD  y  .FT  (ver  más  adelante)  vayan  en  líneas  individuales.  Hay  un 
carácter  especial  en  estas  cadenas,  que  es  “#”.  Cuando  se  encuentra  se 
imprime  en  su  lugar  el  número  de  página. 

Los  comandos  .LJ,  .RJ,  .CN,  .PW,  .LM  y  ,RM  no  tienen  ningún 
efecto  sobre  la  cabecera  cuando  se  imprime.  La  cadena  se  im¬ 
prime  exáctamente  como  se  ha  definido,  comenzando  en  la  pri¬ 
mera  columna  de  la  página.  Si  deseas  centrar  un  título,  por  ejemplo, 
tendrás  que  calcular  los  espacios  necesarios. 

En  la  cabecera  pueden  incluirse  macro-caracteres  (ver  más  ade¬ 
lante)  si  se  quiere.  La  cabecera  se  imprime  en  la  línea  que  esté  ajus¬ 
tada  en  TM  más  1.  Ejemplo:  .hd  Runscript  64. 

.FT  —  Define  un  pie  de  página  que  se  imprime  en  la  línea  ajustada 
con  .PL  menos  1.  Funciona  igual  que  las  cabeceras  (.HD).  Ejemplo: 
.ft  página  # 

.HS  —  Define  el  número  de  líneas  a  dejar  entre  la  cabecera  y  el 
cuerpo  central  del  texto.  Ejemplo:  ,hs2 

.FS  —  Lo  mismo  pero  con  el  pie  de  página.  Ejemplo:  .fs2 

.LS  —  Espaciado  de  línea.  Una  o  más  líneas  en  blanco  pueden  ser 
insertadas  automáticamente  entre  cada  línea  de  texto.  Si  .ls  se  ajusta  a 
1,  se  imprimirá  una  línea  en  blanco.  Ejemplo  .lsl 

•L+  —  Este  comando  hace  que  el  texto  quede  indentado  a  la  dere¬ 
cha  del  margen  que  está  definido.  Por  ejemplo,  si  el  margen  izquierdo 
está  en  ,lm8  y  ejecutas  .1+3,  el  texto  se  escribirá  como  si  estuvieras  en 
.lml  1.  Para  cancelar,  utiliza  .1+0 

■L - Igual,  pero  hacia  la  izquierda.  Si  haces  .1 — 3  teniendo  el 

margen  en  8  es  como  si  hicieras  ,lm5.  Puedes  cancelarlo  también  con 


.FP  —  Forzar  página.  Con  este  comando  consigues  que  la  impre¬ 
sora  salte  a  la  siguiente  página  sin  imprimir  más  texto.  Si  has  definido 
un  pie  de  página,  se  imprimirá.  Ejemplo:  .fp 

•FL  —  Este  comando  te  permite  enlazar  varios  ficheros  que  vayan  a 
ser  imprimidos.  Debe  ir  seguido  del  número  de  periférico  y  el  nombre 
del  fichero,  separados  por  una  coma.  Cuando  se  ejecuta  el  comando 
-fl,  el  fichero  que  se  haya  especificado  se  carga  y  se  imprime.  Los 
números  de  periférico  posibles  son  el  8  y  el  9.  Si  se  utilizan  dos  drives, 
el  texto  podría  llegar  a  ser  de  hasta  340.000  caracteres.  Ejemplo: 
,fl8,fichero2 

■P#  —  Ajusta  el  número  de  página  para  la  siguiente  página  que 
vaya  a  imprimirse.  Ejemplo:  .p#45 

•LF  —  Indica  el  carácter  line-feed  que  hay  que  enviar  después  de 
cada  retorno  de  carro.  Algunas  impresoras  no-Commodore  lo  necesi¬ 
tan  (suele  ser  el  ASCII  10).  Ejemplo:  .lflO 

■CM  —  Este  es  simplemente  no  hacer  nada.  Su  único  cometido  es 
permitir  que  escribas  comentarios,  pero  no  serán  impresos.  Si  estás 
acostumbrado  a  guardar  tus  cartas  en  disco  o  cinta,  puedes  hacer 
comentarios  sobre  la  fecha  o  cualquier  otra  información.  Ejemplo: 
.cm30  de  septiembre,  1986  Artículo  Runscript. 

Definición  de  macros  para  la  impresora 

Si  tienes  una  impresora  que  no  sea  Commodore,  como  una  SG-10, 
una  Riteman,  una  Epson  MX-80  o  una  Okimate  10  (por  citar 
algunas)  posiblemente  habrás  pensado  cómo  poder  utilizar  los  dife¬ 
rentes  tipos  de  letra,  caracteres  personalizados,  etc.  que  posiblemente 
tu  impresora  es  capaz  de  manejar.  Para  ello  Runscript  te  permite 
definir  “macro-caracteres”,  con  los  que  podrás  sacar  el  máximo  par¬ 
tido  a  tu  impresora. 

No  es  necesario  que  sepas  utilizar  los  macro-caracteres  para  utilizar 
el  Runscript,  pero  es  conveniente,  porque  te  permitirán  utilizar  acen¬ 
tos,  eñes,  y  caracteres  personalizados  en  general. 

Puedes  elegir  una  letra  mayúscula  o  minúscula  para  que  te  sirva  de 
macro-caracter.  Cuando  Runscript  encuentre  este  carácter  lo  que 


hará  será  imprimir  una  serie  de  códigos  que  tu  habrás  definido  pre¬ 
viamente.  Esto  lo  puedes  hacer  con  mucha  facilidad  con  un  simple 
programa  Basic  llamado  GEN. MACROS  (listado  4).  Por  ejemplo, 
digamos  que  tienes  una  impresora  en  la  que  ESC  X  (valores  decimales 
27,88)  significa  imprimir  caracteres  a  doble  ancho.  Puedes  elegir 
cualquier  carácter,  por  ejemplo  la  letra  “d”  para  representar  esta 
secuencia. 

Esto  es  muy  útil  para  imprimir  títulos  y  cabeceras,  entre  otra  cosas. 
Para  crear  una  cabecera  a  doble  ancho,  por  ejemplo,  coloca  el  cursor 
al  principio  de  la  cabecera  y  pulsa  la  tecla  F3.  Aparecerá  un  mensaje 
*MAC*  en  la  línea  de  comandos.  Teclea  el  carácter  que  hayas  defi¬ 
nido  como  “doble-ancho”  (en  el  ejemplo  la  “d”),  que  será  visualizada 
en  inverso  en  la  pantalla.  Finalmente,  teclea  la  cabecera  y  al  final 
pulsa  F3  y  la  tecla  que  hayas  definido  como  “desactivar  doble-ancho” 
(podría  ser  la  “D”  mayúscula,  por  ejemplo).  ¡Esto  es  todo  lo  que 
tienes  que  hacer!  Si  tecleas  un  carácter  que  no  sea  una  letra,  el  modo 
*MAC*  quedará  anulado.  La  tabla  de  macros  está  compuesta  de  52 
macro-definiciones  diferentes,  cada  una  de  las  cuales  puede  tener 
hasta  20  caracteres  de  largo.  Hay  500  bytes  libres  para  la  tabla  de 
macros. 

Para  utilizar  el  generador  de  macros  (listado  4)  haz  lo  siguiente: 
antes  de  ejecutar  el  programa,  hazte  una  lista  con  las  definiciones  que 
piensas  utilizar  (esto  varia  según  cada  uno  y  su  impresora).  Al  lado  de 
cada  carácter  escribe  la  secuencia  de  valores  decimales  que  hay  que 
enviar  a  la  impresora  para  realizar  cada  función.  Entonces  ejecuta  el 
programa  GEN.MACROS 

Lo  primero  que  te  preguntará  será  el  macro-carácter  que  quieres 
definir.  Introduce  cualquier  letra  de  la  A  a  la  Z  (mayúscula  o  minús¬ 
cula).  Si  te  equivocas  puedes  utilizar  el  asterisco  para  borrar  una 
definición  o  la  flecha  arriba  para  terminar.  A  continuación  el 
programa  te  preguntará  cúántos  caracteres  van  en  ese  macro.  Cuénta¬ 
los  y  pon  el  total.  Ahora  introduce  uno  por  uno  cada  valor,  comen¬ 
zando  por  el  primero.  Cuando  hayas  terminado,  el  ordenador  te  dirá 
“Has  terminado  las  definiciones  (s/n)?”.  Si  tienes  que  introducir  más, 
teclea  “N”. 

Cuando  hayas  terminado  con  toda  la  lista,  y  después  de  unos 
segundos  que  el  programa  tarda  en  crear  la  tabla  de  macros,  la  tabla 
se  grabará  en  el  disco  con  el  nombre  que  tu  elijas,  así  podrás  tener 
varias  tablas  de  macros. 

En  los  listados  6  y  7  tienes  unos  ejemplos.  Puedes  teclear  directa¬ 
mente  las  líneas  sobre  el  programa  GEN.MACROS  y  cuando  lo  eje¬ 
cutes  se  crearán  automáticamente  las  definiciones  de  caracteres  caste¬ 
llanos.  Si  te  fijas  en  cada  línea,  lo  que  contienen  es  el  macro-carácter  a 
definir,  la  longitud  y  la  definición  (igual  que  si  lo  introdujeras  direc¬ 
tamente,  como  también  puede  hacerse).  El  último  data  ha  de  ser 
“END”.  De  esta  manera  puedes  utilizar  tus  macro-caracteres  en  futu¬ 
ras  ocasiones.  En  este  caso  las  equivalencias  son: 


MACRO  CARACTER  a  e  i  o  u  v  V  n  N  q  w 
SALIDA  IMPRESORA  á  é  í  ó  ú  ü  Ü  ñ  Ñ  ¿  ¡ 


Es  decir,  que  para  obtener  la  “ñ”,  por  ejemplo,  hay  que  pulsar 
F3/ n,  con  lo  que,  aunque  en  la  pantalla  aparezca  una  “fl”  invertida,  a 
la  hora  de  imprimir  el  texto  aparecerá  una  auténtica  “fl”. 

En  la  MPS-801  (y  compatibles)  se  definen  los  macro-caracteres 
utilizando  ocho  bytes:  CHR$(8)  =  modo  gráfico  +  6  datos  para  el 
dibujo  del  carácter  +  CHR$(15)  =  modo  texto.  En  la  Riteman  C+ 
(en  modo  plus)  se  utiliza  el  carácter  Back  Space  (retroceso)  para 
colocar  un  acento  encima  de  las  vocales.  Tan  sólo  hace  falta  definir 
como  gráficos  la  interrogación  y  exclamación  invertidas.  Si  quieres 
crear  tus  propios  caracteres,  utiliza  este  sistema,  consultando  el 
manual  de  tu  impresora  para  ver  cómo  se  definen  los  caracteres 
personalizados. 

Mensajes  de  error 

Macro  no  definido.—  Este  mensaje  de  error  aparece  cuando  se  es¬ 
tá  imprimiendo  el  texto  y  se  encuentra  un  macro-carácter  que 
no  ha  sido  definido.  Normalmente  es  porque  te  has  equivocado  al 
teclear  el  macro-carácter.  El  cursor  quedará  sobre  el  lugar  en  el  que  se 
produjo  el  error. 
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Cantidad  ilegal.—  Este  mensaje  aparece  cuando  se  ha  utilizado  un 
argumento  numérico  demasiado  grande  o  pequeño. 

Error  salida.—  Este  error  aparecerá  en  la  pantalla  si  durante  la 
impresión  hay  un  error  en  el  hardware,  es  decir,  si  la  impresora  se 
desconecta,  se  le  acaba  el  papel,  etc. 

Error  sintaxis.—  Sucede  si  Runscript  no  es  capaz  de  reconocer  un 
comando  de  punto.  El  cursor  aparecerá  sobre  el  comando  en 
cuestión. 

Error  margen. —  Este  error  aparece  cuando  has  colocado  valores 
ilegales  en  los  márgenes.  Comprueba  que  su  suma  no  exceda  el  ancho 
de  la  página. 

Memoria  llena.—  Este  mensaje  te  dice  que  se  ha  acabado  la  zona 
de  texto  disponible  en  la  memoria.  Debes  grabar  lo  que  tengas  escrito 
y  borrar  la  pantalla  para  continuar.  Luego  puedes  enlazar  los  ficheros 
con  el  comando  de  punto  .lf 

Device  not  present.—  Este  error  se  produce  cuando  el  periférico 
implicado  en  una  operación  de  entrada/salida  no  responde.  Com¬ 
prueba  que  tienes  el  periférico  conectado  y  que  el  número  que  les  has 
asignado  es  correcto. 

File  not  found.—  El  fichero  que  se  ha  intentado  leer  no  se  ha 
encontrado. 

No  existe  cadena.—  No  se  ha  encontrado  la  cadena  que  se  buscaba. 

Save  error  o  Load  error.—  Esto  aparece  cuando  ha  habido  algún 
error  durante  la  grabación  o  lectura  de  un  fichero. 


Cómo  teclear  los  programas 

Runscript  está  dividido  en  varias  partes,  por  lo  que  se  necesita  un 
cargador  para  unirlas.  Un  programa  cargador  es  un  programa 
que  carga  a  otros  programas.  En  el  caso  de  Runscript  64,  el  programa 
cargador  (listado  2)  se  necesita  para  cargar  el  programa  en  lenguaje 
máquina  (que  es  generado  por  el  listado  1)  asi  como  el  juego  de 
caracteres  (generado  por  el  listado  3). 

Si  el  programa  cargador  se  encuentra  en  disco,  todos  los  ficheros 
que  hagan  falta  deben  estar  en  el  mismo  disco,  aunque  pueden  estar 
en  cualquier  orden.  Sigue  las  instrucciones  que  vienen  a  continuación 
para  teclear  y  grabar  las  diferentes  partes. 

Paso  1:  Antes  que  nada,  teclea  los  POKEs  que  aparecen  el  princi¬ 
pio  del  listado  1.  Es  necesario  hacerlo  antes  de  comenzar  a  teclear  o 
antes  de  cargarlo  de  cinta  (si  lo  vas  haciendo  por  partes).  Cuando 
termines  de  teclearlo  completamente,  grábalo.  Al  ejecutarlo  generará 
un  fichero  de  programa  llamado  RUNSCRIPT,  que  es  la  parte  de 
código  de  máquina  del  programa. 

Paso  2:  Teclea  el  listado  2  (cargador)  tal  y  como  viene.  Puedes 
cambiar  el  número  de  periférico  desde  donde  vas  a  cargar  las  otras 
partes  en  la  línea  100. 

Paso  3:  Teclea  el  generador  del  juego  de  caracteres  (listado  3)  y 
ejecútalo.  Hará  una  copia  del  juego  de  caracteres  mayúsculas /minús¬ 
culas  del  C-64  en  el  disco.  El  listado  4  son  unos  datas  que  modifican 
algunos  caracteres,  concretamente  los  mismos  que  en  los  datas  de  los 
macros  (ver  el  generador  de  macros).  De  este  modo,  puedes  teclear  en 
castellano  en  la  pantalla  (usando  COMMODORE/ letra).  Desgracia¬ 
damente  estos  caracteres  no  coinciden  con  los  macro-caracteres  y  no 
pueden  imprimirse.  El  formato  de  los  datas  es:  número  de  carácter 
(pantalla),  8  datos,  el  último  ha  de  ser  —1.  Una  posible  solución  sería 
utilizar  un  pequeño  programa  Basic  que  leyera  el  fichero  y  transfor¬ 
mara  estos  caracteres  en  los  macros  correspondientes,  para  que 
pudieran  ser  impresos  correctamente. 

Paso  4:  Teclea  el  listado  5  si  quieres  utilizar  el  generador  de  macros 
y  el  listado  6  si  quieres  conseguir  un  Runscript  “personalizado”  (ver 
más  abajo). 


Runscript  está  diseñado  para  funcionar  con  una  impresora  Com- 
modore  en  el  bus  serie.  Algunas  impresoras  no-Commodore  con 
interfaces  que  emulen  una  Commodore  también  funcionan.  Las 
impresoras  RS-232  o  Centronics  no  pueden  conectarse  directamente, 
pero  sí  que  puedes  enviar  el  fichero  al  disco  y  más  tarde  utilizar  un 
pequeño  programa  Basic  para  imprimirlo.  Si  tienes  algún  problema 
con  los  caracteres  de  tu  impresora  compatible-Commodore  utiliza  la 
opción  Fl/T  para  evitar  ASCII  standard. 

Runscript  personalizado 

Puedes  conseguir  personalizar  tu  Runscript  con  un  nuevo  juego  de 
caracteres,  colores  de  la  pantalla  a  tu  gusto,  los  parámetros  que 
quieras  para  tu  impresora,  y  las  tablas  macro  que  hemos  comentado 
antes,  de  la  manera  siguiente. 

Teclea  el  listado  8  (generador  de  parámetros)  y  grábalo  en  disco. 
Modifica  las  líneas  60  y  100  del  cargador  (listado  2)  de  la  siguiente 
manera: 

60  MACS  VRUNSCRIPT  MACROS” 

100  CHARS  =  “LETRAS  CASTELLANO” 

Utiliza  los  nombres  que  le  hayas  dado  a  la  tabla  de  macros  y  al 
juego  de  caracteres.  Si  no  utilizas  macros,  deja  la  cadena  MACS 
vacía.  Graba  el  cargador  de  nuevo,  con  otro  nombre  si  quieres. 

Ahora  podrás  determinar  los  valores  por  defecto  de  los  diversos 
parámetros  del  Runscript.  Lo  primero  que  tienes  que  hacer  es  teclear: 

POKE  44,48:POKE  48  *  256,0:NEW 

Esto  sube  el  principio  del  Basic  para  que  no  te  interfiera  el  pro¬ 
grama  Runscript  en  código  máquina.  Ahora  carga  el  programa  con 
LOAD“RUNSCRIPT”,8,l  y  ejecuta  NEW  a  continuación. 

Carga  el  programa  GEN. PARAMETROS  que  habías  tecleado 
antes  y  ejecútalo.  Cuando  hayas  terminado  de  hacer  todos  los  cam¬ 
bios,  el  programa  modificado  a  tu  gusto  se  grabará  sobre  el  anterior, 
aunque  siempre  podrás  utilizar  la  versión  original  generándola  con  el 
listado  1. 

Entre  las  preguntas  que  te  hará  el  programa  están:  colores  de  la 
pantalla,  periférico  para  LOAD  y  SAVE  (por  si  tienes  dos  unidades 
de  disco),  tipo  de  ASCII  —Standard  o  Commodore—  que  vas  a 
utilizar,  carácter  line-feed  (en  algunas  impresoras  el  10)  a  enviar  des¬ 
pués  de  el  retorno  de  carro  y  dirección  secundaria  a  utilizar  en  la 
impresora  cuando  se  envíen  macro-caracteres.  ■ 
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PROGRAMA:  CARGADOR 


.ISTADO 


0  REM  RUNSCRIPT  -  CARGADOR  DEL  PROG  . 
RAMA,  TABLAS  MACRO  Y  JUEGO  DE  CARAC 
TERES 

50  REM  SI  CARGAS  MACROS ,  DEFINE  MAC  . 
*  CON  EL  NOMBRE  DE  LA  TABLA  MACRO  A 
CARGAR 
60  MAC*="" 

80  CHAR$="CARACTERES. C64"  :  REM  DEFIN  . 
E  CHAR*  CON  EL  NOMBRE  DEL  JUEGO  DE 
CARACTERES 

100  DEV=B: REM  NUMERO  DE  DRIVE  DESDE  . 
EL  QUE  SE  CARGA 

140  GOSUB640: REM  ESCRIBIR  RUTINA  DE 


^  UTILIDADES 


C.M.  AL  BUFFER  DEL  CASSETTE 
180  A=7B0:X=781sY=7B2sREM  REGISTROS 
FARA  SYS 

210  FORLOOP=65024TO65535 
220  FOKELOOP.OiREM  BORRAR  ZONA  DE  L 
A  TABLA  DE  MACROS 
230  NEXTLOOP 

260  FROG*= " RUNSCR I PT " : ADR=46B 1 ! GOSU 
B380 : REM  CARGAR  PROGRAMA  PRINCIPAL 
280.  FROG*=MAC* 

290  I FMAC*<  > " " THENADR=65024 : G0SUB38 
0: REM  CARGAR  TABLA  DE  MACROS 
310  PROG*=CHAR*sGOSUB470:REM  PREPAR 
AR  VALORES  PARA  CARGAR  EL  JUEGO  DE 
CARACTERES 

320  SYS900J  REM  CARGAR  JUEGO  DE  CARA 
CTERES  Y  EJECUTAR  PROGRAMA  PRINCIPA 


.224 

.232 

.68 

.68 

.237 

.45 
.  179 
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350  END  .  97 

380  GOSUB470: REM  PREPAR  NOMBRE  Y  NU  .227 
MERO  DE  FICHERO  LOGICO 

400  FOKEA ,0: FQKEX , (ADR/ 256-1 NT  < ADR/  .91 
256) ) «256 :POKEY, ADR/256 

410  SYS65493 : REM  LOAD  (KERNAL)  .243 

430  RETURN  .233 

470  REM  USAR  SETLFS  .227 

480  POKEA , 0 : POKE X , DEV : POKEY , 0  .35 

490  SYS65466  .  155 

510  REM  PREFARAR  NOMBRE  .111 

520  FORLOOP=1TOLEN(PROG*>  .202 

530  POKEB49+LOOP,ASC(M1D*<FROG*,LOO  .12 

540  NEXTLOOP  .  124 

560  REM  USAR  SETNAM  .188 

570  POKEA , LEN ( PROG* ) : POKEX , 850AND25  .248 
5: POKE Y, 850/ 256 

580  SYS65469  .118 

600  RETURN  .148 

640  FORLOOP=900TO910  .124 

650  READBYTE ! POKELOOP , BYTE  .218 

660  NEXTLOOP  .244 

680  RETURN  .  228 

710  DATA169.0, 170, 160,8,32,213,255,  .206 
76,99,26 


PROGRAMAS  GEN. CARACTERES  LISTADO  3 


10  REM  JUEGO  DE  CARACTERES  .218 

40  POKE56 , 40 s  CLR  s  PQKE56333 , 1 27  s  REM  .42 

DESCONECTAR  IRQ 

50  POKE 1 ,PEEK(1) AND251 s REM  CONECTAR  .174 
ROM  JUEGO  DE  CARACTERES 
80  REM  COPIAR  A  *6000  .  196 

90  CSET=13»4096+B*256:COPY=6*4096  .116 

100  FORLOOP=0TO2047  .6 

110  POKECOPY+LOOP , PEEK ( CSET +LOQP )  .90 

120  NEXTLOOP  .214 

121  GOSUB900  .131 

150  POKE 1 , PEEK ( 1 ) OR4 : REM  DESCONECTA  .26 

R  ROM  JUEGO  DE  CARACTERES 

160  P0KE56333, 128+1: REM  CONECTAR  IR  .200 
Q 

190  REM  SALVAR  JUEGO  DE  CARACTERES  .34 
210  PR I  NT " C CLR 1 1 2CRSRD 3 8  -  DISCO"  .186 
220  PR I NT " 9  -  DISCO"  .190 

230  I NPUT " NUMERO  DE  PERIFERICO” ¡ DEV  .92 
240  IFDEVO1ANDDEVO0ANDDEVO9THEN2  .64 
30 

250  POKE780 ,0: P0KE7B1 , DEVs  P0KE782 , 0  .230 
260  SYS65466: REM  SETLFS  .147 

280  NAM*="CARACTERES.C64"  .247 

285  PRINT "NOMBREC2SPC1 "NAM*LEFT* ( " C  .124 
18CRSRL1" , LEN (NAM*) +2) ; s INPUTNAM* 

290  FORLOOP=lTOLEN (NAM* )  .65 

300  P0KEB49+L00P , ASC (MID*  < NAM* , LOOP  .139 

,1)1 

310  NEXTLOOP  .149 

320  POKE780 , LEN  í  NAM* ) s  PQKE78 1 , 850AN  .233 
D255 : POKE782 , 850/256 
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UTILIDADES 


450  NEXTLOOP 

470  INPUT"HAS  TERMINADO  LAS  DEFINIO 
IONES  (S/N) " ¡ B* 

480  IFLEFT* (B* , 1 )  <  >"S" THEN200 

520  REM  CREAR  TABLA  DE  MACROS 

540  PTR  =  4*4096: REM  DIRECCION  DONO 

E  SE  SITUA  EL  MACRO 

550  FORENTRY=0TO51 

560  I FFLAGX ( ENTRY ) =0THEN750 

580  REM  CONVERTIR  A  CODIGOS  DE  PANT 

ALLA  INVERTIDOS 

590  I FENTRY< 26THENC0DE=ENTR Y + 1 + 1 28 
600  I FENTRY  >25THENC0DE=*ENTR  Y+39+ 1 28 
620  POKEPTR, CODE: REM  EL  PRIMER  MACR 
O  ES  EL  CODIGO  DE  PANTALLA  DEL  MACR 
O 

630  PTR=PTR+ 1 : REM  SIGUIENTE  BYTE 
650  POKE  PTR, LEN (MACRO* (ENTRY) )+2:R 
EM  EL  SEGUNDO  BYTE  ES  LA  LONGITUD  D 
EL  MACRO 

660  PTR=PTR+ 1 : REM  SIGUIENTE  BYTE 
680  FORILOOP=lTOLEN (MACRO* (ENTRY) ) : 
REM  EL  RESTO  ES  LA  CADENA  DE  LA  DEF 
INICION 

690  POKE  PTR,ASC(MID* (MACRO* (ENTRY) 

, ILOOP, 1) ) 

700  PTR=PTR+1 
710  NEXTILOOP 

730  IFPTR=  >4*4096+500THENPR I NT " C  CRS 
RD3 TABLA  DEMASIADO  GRANDE !!!": STOP 
750  NEXTENTRY 

790  REM  GRABAR  TABLA  DE  MACROS 
820  PRINT"CCLR3C2CRSRD38  -  DISCO 
830  PRINT "9  -  DISCO 

840  I NPUT " NUMERO  DE  PERIFERICO" ¡ DEV 
850  I FDE V<  > 1 ANDDEV<  >BANDDEV< >9THEN8 
40 

870  REM  USAR  SETLFS 

B80  POKEA , 0 : POKEX , DEV : POKEY , 0 

890  SYS65466 

910  REM  PREPARAR  NOMBRE 

920  B*= " RUNSCR I PT  MACROS" 

925  PR I NT " NOMBRE C 2SPC 1  "B*LEFT*  ( "  C  19 
CRSRL3 " , LEN (B*) +2) j : INPUTB* 

930  FORLOOP= 1 TOLEN ( B* ) 

940  POKE849+LOOP ,  ASC  (MI D*  ( B*  , LOOP ,  1 


970  REM  USAR  SETNAM 

980  POKEA , LEN ( B* ) : POKEX , 850AND255 : P 
OKEY, 850/256 
990  SYS65469 

1010  REM  USAR  SAVE  (KERNAL) 

1020  P0KE253 , 0 : P0KE254 ,4*16 

1030  POKEA , 253 : POKEX , PTRAND255 : POKE 

Y.PTR/256 

1040  SYS65496 

1070  END 

1110  REM  SUBRUT I NA  INPUT 
1130  INPUTA*:A*=LEFT*(A*,1> 

1150  I F A*= " * " ORA*= " t " THENRETURN 

1160  IFA*< " A"THEN1 130 

1170  IFA*>" CSHIFTZ3 "THEN1 130 

1180  I F A*  > " Z " AND A*< " C  SH I FTA  3 " THEN 1 1 


1230  RETURN 
1240  : 

1300  REM  LEER  DATAS  -  AIB 

1301'  READA*: IFA*=" END "THENRETURN 

1302  PRINT "CREANDO  MACRO  "CHR*(341 


1305  FLAGX (N)=l 

1 307  READLN : FOR I = 1 TOLNi READCH : MACRO 
* (N) =MACRO* (N) +CHR* (CH) : NEXT : G0T013 


10  REM  PARAMETROS  POR  DEFECTO 
40  REM  COLORES  DE  LA  PANTALLA 
50  PRINTCHR* ( 147) "0C2SPC3-  NEGRO" 
60  PRINT" 1C2SPC3-  BLANCO" 

70  PRINT "2C2SPC3-  ROJO" 

80  PRINT"3C2SPC3—  CIAN" 

90  PR I NT "4I2SPC3—  PURPURA" 

100  PRINT "5C2SPC3-  VERDE" 

110  PRINT"6C2SPC3—  AZUL" 

120  PR 1 NT "7C2SPC3—  AMARILLO" 

130  PRINT"8C2SPC3-  NARANJA" 


160  PRINT" 11  -  GRIS  OSCURO" 

170  PRINT"  12  -  GRIS  MEDIO" 

180  PRINT" 13  -  VERDE  CLARO" 

190  PRINT" 14  -  AZUL  CLARO" 

200  PRINT" 15  -  GRIS  CLARO" 

220  PRINT 

230  I NPUT " COLOR  DEL  TEXTOC3CRSRR30 
C  4CRSRL  3 " ; COLR 
240  P0KE6684 , COLR 

250  I NPUT "ICRSRU 3 COLOR  DEL  FONDO I3C 
RSRR33  C 4CRSRL 3 " ¡ COLR 
260  P0KE6682 , COLR 

270  INPUT" CCRSRU 3 COLOR  DEL  BORDE C3C 
RSRR36  C  4CRSRL  3 " ; COLR 
280  P0KE6683 , COLR 

290  INPUT" CCRSRU 3 COLOR  DE  LA  LINEA 
DE  MENSA J ESC 3CRSRR 3 6  C4CRSRL3 " ¡ COLR 


COMMODORE  WORLD 


UTILIDADES 


350  INPUT"CCLR3DIRECCI0N  LIMITE  DE  . 
MEMOR I A 1 3CRSRR 1 53247 1 7CRSRL I  "  ;  ADR 
360  ADR=ADR-256:P0KE6691 , (ADR/256-1  . 
NT ( ADR/256) ) *256: P0KE6692 , ADR/256 
370  REM  PERIFERICO  PARA  SAVE 
400  PRINT :  PRINT 

410  PR I NT " NUMERO  DE  PERIFERICO  PRIN  . 
CIPAL" 

430  INPUT “PERIFERICO  PARA  SAVEC3CRS  . 
RR  3  8 1 3CRSRL  3 " i  DE V : P0KE6686 , DEV 
460  REM  MODO  ASCII 

470  REM  ASCII  VERDADERO  O  COMMODORE  . 
480  PRINT! PRINT 

490  PRINT "ASCII  COMMODORE  O  ASCII  S  . 
TANDARD?" 

500  INPUT "ELIGE  ( C RVSON 3 S C RVSOFF 3 T A  . 
NDARD/ C  RVSON  3 C  C  RVSOFF  3  OMMODORE ) I  3CR 
SRR  3  C I  3CRSRL  3  "  ;  A* 

510  IFLEFT*(A*,1>="S"THENFLAG=255:G  . 
OTO540 

520  IFLEFT*  < A* , 1 >  ="C"THENFLAG=0i GOT  . 
0540 

530  GOT 04 80 

540  P0KE67 16, FLAG 

570  REM  LINE  FEED  O  NO  LINE  FEED 

580  PRINT: PRINT 

590  PRINT "HAY  QUE  ENVIAR  UN  LINE  FE  . 
ED  DESPUES  DE  C  2SPC  3  CADA  RETORNO  DE 
CARRO?" 

600  INPUT" <S/N) C3CRSRR3NC3CRSRL3"»A  . 

610  IFLEFT* (A*, 1>="S"THENFLAG=255:G  . 
OTO640 

620  I FLEFT *  < A* , 1 >  = " N " THENFLAG=0 «GOT  . 
0640 

630  GOTO580 

640  P0KE67 1 3 , FLAG 

670  REM  DIRECCION  SECUNDARIA 

6B0  PRINTl PRINT 

690  PRINT” INTRODUCE  DIRECCION  SECUN  . 


710  PRINT" MAYUSCULAS / M I NUSCULAS . " 
720  INPUT "DIRECCION  SECUNDAR I AI 3CRS 
RR  3  7  C  3CRSRL  3 " ; ADR 
730  P0KE6693 ,  ADR 
740  PRINT 

750  PRINT" INTRODUCE  DIRECCION  SECUN 
DARIA  PARA" 

760  PRINT "UTILIZAR  CUANDO  LA  IMPRES 
ORA  SEA" 

770  PRINT "PROGRAMADA  CON  MACROS. " 

780  I NPUT "DI RECC I ON  SECUNDARIA  COMA 

NDOS 1 3CRSRR  371 3CRSRL  3  "  J  ADR 

790  P0KE6694 , ADR 

820  REM  SALVAR  PROGRAMA 

830  PRINTCHR*  <  147)  | 

850  PRINT"B  -  DISCO” 

860  PRINT"9  -  DISCO" 

870  PRINT 

880  INPUT "NUMERO  DE  PER I FER ICO! 3CRS 
RR  3  8 1 3CRSRL  3 " ; DE V 

890  IFDEVX  1  ANDDEV<  >BANDDEV<  >9THEN8 
30 

900  POKE780 , 0 s  P0KE78 1 ,  DEV  I P0KE782 , 0 
910  S YS65466 ! REM  SETLFS 
930  PROG**"®0: RUNSCRIPT" 

940  IFDEV<>1THENPROG*="0! "+PROBS 
950  FORLOOP-ITOLENIPROG*) 

960  P0KE849+L00P , ASC (MID* ( PROG* , LOO 
P,l)  ) 

970  NEXTLOOP 

990  POKE780 , LEN ( PROG* ) s  P0KE7B 1 , 850 A 

ND255: P0KE782 , 850/256 

1000  SYS65469I REM  SETNAM 

1020  ADR= 12048: REM  FINAL  DE  RUNSCRI 

PT 

1030  P0KE253 ,4681 AND255 «  P0KE254 , 46B 

1 040  POKE780 , 253 : P0KE78 1 , ADRAND255 : 

P0KE782, ADR/256 

1050  SYS65496: REM  SAVE 
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¿CONOCE  LOS  MEJORES  PROGRAMAS 
PA  RA  COMMODORE  64  - 128  ? 


*  *  * 


GESTION  COMERCIAL- 128 

PROGRAMA  INTEGRADO  DE  FACTURACION  Y  CONTROL  DE  STOCKS  *  *  *  * 

* 

Capacidades  de  ficheros  programables  por  el  usuario.  Mantenimiento  de  ficheros.  Control  de  entra- 

das/salidas  de  almacén.  Inventario  permanente.  Actualización  de  almacén.  Memorización  y  emisión  * 

de  albaranes.  Facturación  de  albaranes  por  cliente  con  criterios  de  selección.  Facturación  directa.  ■¥■  ^ 

Emisión  de  recibos  y  letras  según  última  normativa.  Listados  de  ventas  con  desglose  de  IVA.  Lista-  ★  ^ 

dos  definibles  por  el  usuario.  Paso  automático  a  CONTABILIDAD-128.  ^  ^ 

CONTABILIDAD  -128 


Basado  en  el  Plan  General  de  Contabilidad.  Hasta  1500  cuentas  contables.  Niveles  programables 
(hasta  4).  Entradas  de  apuntes  con  control  de  cuadre  y  contrapartida  automática.  Posibilidad  de 
recomponer  apuntes.  Posibilidad  de  guardar  diarios  pendientes  de  actualizar.  Extractos  por  panta¬ 
lla  e  impresora  y  por  grupos  de  cuentas.  Balance  de  sumas  y  saldos  y  situación.  Cuenta  de  explo¬ 
tación.  Gestión  de  IVA.  Listados  oficiales  de  IVA  soportado  y  repercutido.  80  columnas  con  cual¬ 
quier  monitor.  Un  único  disco  de  trabajo.  Gestiona  varias  contabilidades.  Conexión  con  GESTION 


ESTRUCTURAS 

Calcula  pórticos  planos  de  hormigón 
armado.  Calcula  los  esfuerzos  para  las 
tres  hipótesis  verticales,  viento  y  sismo. 
Armado  total  de  vigas  y  pilares.  Cuadro 
de  pesos  de  hierro.  Cuadro  cúbico  de 
hormigón.  Listado  de  todos  los  esfuer¬ 
zos  en  el  armado. 

a  25.000 

FACTURACION 

Programa  de  facturación  directa.  Fi¬ 
chero  de  artículos  y  clientes.  Diarios  de 
ventas.  Desglose  de  impuestos.  Emi¬ 
sión  de  recibos.  Varias  versiones. 

□  15.000 


MEDICIONES 

Programa  de  mediciones  y  presupues¬ 
tos  de  obra  totalmente  programable  por 
el  usuario.  Listado  de  mediciones  y  pre¬ 
supuesto  por  partidas.  Posibilidad  de 
ajuste  automático  de  presupuesto. 

B  25.000 


STOCKS 

Ficheros  de  artículos  y  proveedores. 
Control  de  entrada-salida  de  almacén. 
Actualización  automática.  Inventario 
permanente.  Inventario  bajo  mínimos. 
Listados  varios. 

□  15.000 


CONTABILIDAD 

Basada  en  el  Plan  Contable  Español, 
300  ó  1.000  cuentas.  Contrapartida 
automática.  Estractos  por  pantalla  o 
impresora.  Balances  programables. 
Grupos  0  y  9.  Balance  de  situación  y 
cuenta  de  explotación  programables. 

0  25.000 

GESTION  CIAL-64 

Facturación  y  control  stocks.  1000 
clientes,  2000  artículos.  Entradas/Sa- 
lídas  almacén.  Inventario  permanen¬ 
te.  Facturación  directa.  Emisión  de 
recibos.  Paso  a  CONTABILIDAD-64. 


OTROS  PROGRAMAS 


•  BASE  DE  DATOS  (SUPERBASE  64)  .  E  22  500  ptas 

•  TRATAMIENTO  DE  TEXTOS .  E  10000  pías 

•  ESTADISTICA!. II. III  . i  3 000 pías 

•  CONTABILIDAD  ESPECIAL  .  B  5.000  ptas 

•  MODULO  DE  PASO,  (Gestión-Contabilidad)  .  B  7.000  ptas 


•  QUINIELAS  .  B  3  000  ptas 

•  ADMINISTRACION  DE  FINCAS  .  0  35.000  ptas 

•  RECIBOS  DE  COLEGIOS .  B  25.000  ptas 

•  FACTURACION  POR  ALBARAN  .  0  15.000  ptas 

•  EMISION  DE  ETIQUETAS  . E3  0  5.000  ptas 


OTROS: 

•  CONFECCION  DE  PROGRAMAS 
A  MEDIDA 

•  DESARROLLOS  DE  HARDWARE. 

•  DISQUETTES.  MONITORES.  CINTAS, 
etc. 


Pida  información:  (976)  226974  \mmsi  Avda.  Goya,  8  -  50006  ZAFtAGOZA 
232961  somoos  Oí  wcwMAncA  ( Distribuidores  exclusivamente  por  carta) 


GRAFICOS 


Por  Antón  Leherbauer 


as  ampliaciones  de  gráficos  para  el 
C-64  ofrecen  únicamente  las 
nocidas  instrucciones  para 
do  y  borrado  de  puntos  y  lineas. 

Posiblemente  un  par  de  extras  aquí  y  allá, 
y  se  han  agotado  las  funciones. 

HIRES  64  rebasa  con  mucho  las  ins¬ 
trucciones  standard.  Son  poco  corrientes  los 
comandos  para  manipulación  continua  de 
pantalla.  Con  ellos  es  posible  ampliar  o 
reducir  gráficos  como  un  todo  o  por  partes. 

Mediante  efectos  de  modificación  es  posible 
convertir  a  voluntad  la  pantalla,  en  algo 
“elástico”.  Si  se  desea,  es  posible  mediante 
métodos  definibles,  dar  forma  a  la  imagen  en 
pantalla. 

HIRES  64  soporta  tres  resoluciones 
diferentes: 

320  *  200  =  gráfico  de  alta  resolución  (dos 
colores). 

160  *  200  =  gráfico  multicolor  (cuatro 
colores). 

80  *  50  =  gráfico  de  un  cuarto  de  bloque 

(dos  colores). 

HIRES  64  ocupa  el  área  de  memoria  entre 
$8000-$9FFF  (32768-40959).  Se  utilizan  por 
tanto  8K  de  la  memoria  para  Basic.  Con 
excepción  de  SC000  hasta  SC5FF,  se  utiliza 
también  toda  la  RAM  desde  $A000  hasta 
SFFFF.  La  pantalla  de  gráficos  comienza  a 
partir  de  SE000  y  la  pantalla  de  textos  nor¬ 
mal  a  partir  de  $0400.  . 

Las  instrucciones: 

(Puede  prescindirse  de  los  argumentos 
entre  paréntesis.  Normalmente  no  deben  establecerse  los  paréntesis). 

Instrucciones  de  control  de  gráficos: 

RAPHIC  0  (,borde(,fondo(, recuadro))). 

GRAPHIC  1  (,borde,  fondo). 

GRAPHIC  2  (.colorí,  color2(color3(,fondo(, recuadro)))). 

El  primer  parámetro  indica  la  modalidad  de  gráfico,  y  todos  los 
otros  establecen  los  colores  en  la  correspondiente  modalidad.  Las  tres 
modalidades  de  gráficos  son  las  siguientes: 

0  :  Pantalla  de  textos,  80  *  50  puntos. 

1  :  Pantalla  de  gráficos,  320  *  200  puntos. 

2  :  Pantalla  de  gráficos,  160  *  200  puntos. 

En  cada  nuevo  arranque  se  activa  el  modo  0.  Las  instrucciones  de 
gráfico  están  también  disponibles  en  modo  de  texto  (0)  como  gráfico 
de  un  cuarto  de  bloque. 

SPLIT  (m(,n)).—  Esta  instrucción  divide  la 
pantalla  en  dos  áreas,  quedando  reservada  la 
superior  para  gráficos  y  la  inferior  para 

m  especifica  si  debe  activarse  (m  =  1)  o 
desactivarse  (m  =  0)  el  “Splitting”.  Para  m  = 

0,  el  segundo  parámetro  indica  si  se  visuali¬ 


zará  la  pantalla  de  texto  (n  =  0)  o  la  pantalla 
de  gráficos  (n  =  1).  Se  preestablece  n  =  0.  Si 
m  =  1 ,  n  indica  la  línea  a  partir  de  la  cual 
conmutarse  la  pantalla  de  texto.  SPLIT  sin 
parámetros  tiene  el  mismo  efecto  que  SPLIT 
1,18.  Al  contrario  que  con  GRAPHIC, 
mediante  SPLIT  no  se  afecta  a  la  modalidad 
de  gráficos. 

RASTER  x,y(,m).—  Mediante  RASTER  se 
coloca  una  plantilla  con  un  determinado 
modelo  en  la  superficie,  de  tal  manera,  que  x 
é  y  determinan  la  forma  del  modelo.  Enton¬ 
ces  sólo  se  trazarán  aquellos  puntos  que  no 
son  cubiertos  por  el  modelo.  Mediante  m  =  1 
puede  invertirse  el  RASTER.  Si  un  pixel  está 
activo  mediante  BRUSH,  RASTER  no 
ejerce  ningún  efecto,  excepto  con  FILL.  x  é  y 
deben  estar  entre  0  y  255. 

WINDOW  m(,xl,yl,x2,y2).-  Mediante 
esta  instrucción  puede  disminuirse  la  superfi¬ 
cie  de  trazado.  Con  m  =  0  se  desconecta  la 
ventana,  y  mediante  m  =  1  se  conecta.  Las 
coordenadas  siguientes  indican  el  área  en  la 
que  debe  dibujarse.  El  origen  de  coordenadas 
se  moverá  a  (xl,yl). 

BRUSH  cantidad  (,¡,xi,yi,(,xi  +  l,yi  + 
1(,. ..))).—  Esta  instrucción  permite  de¬ 
finir  su  propio  “pincel”.  La  “cantidad”  indica 
el  número  de  puntos  que  debe  tener  el  pincel; 
“i”  es  el  índice  a  partir  del  cual  los  valores  si¬ 
guientes  deben  ser  almacenados  en  la  memo¬ 
ria  del  pincel.  Xi,  Yi,  son  coordenadas  relati¬ 
vas  que  deben  sumarse  al  punto  anterior.  Un 
pincel  puede  consistir  en  127  puntos  como 
máximo.  BRUSH  funciona  con  todas  las  instrucciones  corrientes  de 
trazado,  excepto  con  FILL.  Así,  mediante  el  movimiento  simultáneo 
de  los  “pelos”  del  pincel,  pueden  trazarse  círculos,  líneas  e  incluso  tex¬ 
tos  en  varios  lugares. 

BRUSH  A$.—  Mediante  esta  instrucción  es  posible  activar  de 
nuevo  un  pixel  previamente  almacenado  mediante  A$  =  BRUSHS. 

ROT  W.—  El  pincel  propiamente  dicho  es  girado  en  un  determi¬ 
nado  ángulo.  El  ángulo  de  giro  (en  grades)  se  calcula  mediante 
(w  +  1)  *  90. 

SIZE  xh,xl(,yh,yl).—  Esta  instrucción  establece  el  factor  de 
ampliación  en  sentido  x  é  y  para  las  instiucciones  TEXT,  BITS, 
COPY  y  MOVE.  También  es  posible  la  reducción.  Los  factores  se 
calculan  de  la  forma  siguiente: 

xf=  xh  +  xl/256 
yf  =  yh  +  y  I  /  256 

xh  está  entre  0-16,  yh  entre  0-100,  xl  é  yl 
pueden  estar  entre  0  y  255.  El  valor  standard 
es  SIZE  1 ,0, 1 ,0  (no  hay  ampliación). 

STYLE  xl,yl(x2,y2).—  También  STYLE 
se  refiere  únicamente  a  las  cuatro  instruccio¬ 
nes  antes  mencionadas. 


40  instrucciones 
manipulan  alta  y  baja 
resolución.  Las 
imágenes  se  estiran, 
se  tuercen,  se  filtran  y 
se  deforman. 
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1  =  Vector  desde  un  comienzo  de  línea  al  siguiente.  COP3 

■2  =  Vector  desde  un  punto  de  una  línea  al  siguiente.  (x2,y2)  e 

liante  esta  instrucción  es  posible  reflejar,  girar  o  alterar  textos  y  STYLE, 
ireas  gráficas.  T odos  los  parámetros  pueden  estar  entre  —  1 6384  origen  ei 
6383.  El  ajuste  previo  es  STYLE  0,1, 1,0  (figura  normal  no  determir 
la).  Ejemplo 

sET.—  Se  establece  el  status  básico.  RESET  tiene  el  mismo  El  árei 


COPY  x  1  ,y I,x2,y2,x3,y3.—  El  área  de  ángulo  recto  entre(xl,yl] 
(x2,y2)  es  copiada  a  (x3,y3).  Según  las  especificaciones  para  SIZE 
STYLE,  se  amplía,  se  gira,  se  altera  o  se  deja  igual.  Si  el  área  < 
origen  está  parcialmente  fuera  de  la  pantalla,  la  celda  de  memoria 
determinará  que  la  modalidad  de  caracteres  se  copiará  esa  áre 
Ejemplo:  POKE  2,l:COPY  —10,— 10,—  1,— 1,0,0. 

El  área  no  visible  entre  ( — 10, — 10)  hasta  ( — 1, —  1)  será  copiada 
(0,0)  y  fijada  (color  1). 

MOVExl,yl,x2,y2,x3,y3(,m).—  Esta  instrucción  ejerce  el  misn 
efecto  que  COPY,  pero  previamente  el  área  de  origen  se  borra. 


El  listado  3 
genera  elipses 
rellenas 
mediante 
CIRCLE, 
RASTER,  y 
FILL. 
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CSe  puede 
escribir  en 


Instrucciones  generales  de  caracteres: 

Para  todas  las  instrucciones  siguientes  la  norma  es  que,  todas  las 
coordenadas  pueden  estar  comprendidas  entre  — 16384  y  +16383. 
m=  Modalidad  de  trazado. 

0=  Borrar  punto(s). 

1=  Activar  puntos  o  color  1  en  multicolor. 

2=  Invertir  (borrar  los  puntos  establecidos  y  establecer  los  borrados) 
o  bien,  color  2  en  modo  gráfico  2. 

3=  Color  3  (sólo  en  modo  gráfico  2). 

4=  No  modificar  nada. 

Omitiendo  m  se  asume  el  valor  m  =  1 . 

LINE  xl,yl,x2,y2(,m).—  Se  traza  una  línea  desde  el  punto  (xl,yl) 
al  punto  (x2,y2).  Ejemplo:  LINE  0,0,70,40 
PLOT  x,y(,m).—  Dibuja  en  la  posición  (x,y)  un  punto  (o  pixel). 
DRAW  xl,yl(,m(,x2,y2(,m(. ..)))).—  Traza  líneas,  estableciéndose 
el  punto  de  comienzo  mediante  BEGIN. 

BEGIN  (x,y).—  Si  se  especifica,  en  la  siguiente  instrucción  DRAW 
se  utilizará  como  punto  de  salida  el  punto  (x,y).  La  instrucción  por  sí 
sola  hace  que  el  primer  punto  para  DRAW  sirva  como  punto  de 
comienzo.  Ejemplo: 

BEGIN  0,0:DRAW  10,20,1,5,10 
REC  xl,yl,x2,y2(,m) 

REC  traza  un  recuadro,  cuya  diagonal  es  la  línea  entre  (xl,yl  y 
x2,y2).  Ejemplo: 

REC  0,0,79,49,2 
BLOCK  xl,yl,x2,y2,x3,y3 
Se  traza  un  ángulo  recto  llenado  como  REC. 


TEXT  x,y,a$(,m).—  El  texto  de  a$  se  imprime  en  la  pantalla  activa 
de  caracteres  a  partir  de  (x,y).  Mediante  SIZE  y  STYLE  es  posible 
modificar  el  tamaño  y  la  apariencia  o  estilo  de  letras.  En  a$  pueden 
utilizarse  también  los  siguientes  caracteres  de  control: 

CTRL  +  RVS  ON  =  Activar  modo  inverso. 

CTRL  +  RVS  OFF  =  Desactiva  modo  inverso. 

HOME  =  Saltar  al  punto  (0,0) 

SHIFT  +  CLR  =  Borrar  pantalla,  pero  sin  HOME. 

CTRL  +  A  =  Activar  modo  de  escritura  mayúsculas/ minúsculas. 

CTRL  +  B  =  Activar  modo  de  escritura  mayúsculas/ gráficos. 

SPACE  x,y. —  Mediante  esta  instrucción  es  posible  modificar  en 
TEXT,  la  distancia  entre  un  carácter  y  el  siguiente  en  sentido  x  é  y. 
Normalmente  SPACE  es  8,0. 

BITS  x,y,m,a$. —  Mediante  BITS  es  posible  llevar  a  la  pantalla  las 
figuras  que  se  desee.  La  expresión  de  cadena  a$,  se  traza  en  pantalla  a 
partir  de  (x,y),  y  un  en  a$  significa  que  debe  escribirse  un  punto 
en  el  modo  especificado.  Un  carácter  de  espacio  da  lugar  únicamente 
a  un  retroceso  del  cursor.  También  aquí  es  posible  modificar  la  salida 
mediante  SIZE  y  STYLE. 

Ejemplo:  BITS  10,10,1,“************” 

CIRCLE  mx,my,r(,m).—  Se  traza  un  círculo  con  centro  (mx,my)  y 
radio  r.  El  radio  puede  ser  un  número  de  coma  flotante  cualquiera, 
excepto  0.  De  todas  formas,  en  modo  multicolor  no  se  traza  ningún 
círculo,  sino  una  elipse.  Por  lo  tanto,  en  esta  modalidad  deberá  recu- 
rrirse  a  la  instrucción  BOW. 

BOW  mx,my,xr,yr,aw,ew,sw(m).—  Mediante  esta  instrucción 
pueden  trazarse  las  curvas,  círculos  y  elipses  que  se  desee. 
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mx,my  =  centro. 

xr,yr  =  radios  en  sentido  x  é  y  (para  cualquier  número). 
aw,ew  =  ángulos  de  comienzo  y  final. 

sw  =  anchura  de  paso  desde  aw  hasta  ew  (aw,ex,sw(aw,ex,sw  en  la 
medida  de  curva:  0 — 2*pi)) 

FILL  x,y(,m).—  FILL  rellena  de  un  color  cualquier  superficie.  Se 
consiguen  efectos  atractivos  mediante  la  combinación  con  RASTER. 
BRUSH  no  ejerce  ningún  efecto  sobre  FILL. 

Instrucciones  especiales  HGR: 

Las  ocho  instrucciones  siguientes  se  refieren  sólo  a  la  pantalla  de 
gráficos,  y  son  independientes  del  modo  gráfico  que  esté  activo. 
GSAVE  “nom-pant”  (,ga(,sa)).—  Se  almacena  bajo  el  nombre 
“nom-pant”  la  pantalla  de  gráficos, 
ga  =  Dirección  de  dispositivo.  (Valor  preestablecido:  8) 
sa  =  Dirección  secundaria. 

GLOAD  “nombre”(,ga(,sa)).—  Lo  mismo  que  GSAVE,  carga  un 
gráfico. 

HCOPY  (gm(,adr)).—  Se  genera  un  listado  físico.  La  rutina  Hard- 
copy  está  escrita  para  una  Star  SG-10  con  Interface  Commodore.  El 
modo  gráfico  de  la  impresora  puede  ser  modificado  mediante  especi¬ 
ficación  de  gm,  y  la  dirección  de  comienzo  del  gráfico  mediante  adr. 
El  valor  preestablecido  es  gm  =  4,  adr  =  57344(=$E000). 

SCROLL  ri,xl,x2,yl,y2(,cant).—  El  área  especificada  desde  xl  a  x2 
y  de  y  1  a  y2  (como  mínimo  8X8  pixeles)  se  desplaza  una  cantidad  de 
veces  igual  a  cant  en  una  determinada  dirección.  Debe  tenerse  en 
cuenta  lo  siguiente: 
ri  =  0  =  derecha, 
ri  =  1  =  izquierda, 
ri  =  2  =  hacia  arriba, 
ri  =  3  =  hacia  abajo. 

0  =  xl  =  x2  =  39. 

0  =  yl  =  y2  =  24. 

TRANS  adrl,adr2(,xl,yl,x2,y2).—  Mediante  esta  instrucción  es 
posible  copiar  a  otra  zona  de  memoria  gráfica,  a  partir  de  adr2,  bien 
la  página  gráfica  completa  desde  adrl  o  bien  el  área  especificada. 
xl,yl  =  Angulo  superior  izquierdo  del  área. 
x2,y2  =  Anchura  y  longitud. 

La  resolución  ed  de  40  puntos  en  sentido  x  y  de  200  puntos  en 
sentido  y. 

CLEAR  (byt(,adr(,xl,yl,x2,y2))).—  Se  llena  de  byt  la  memoria  de 
gráficos  a  partir  de  adr.  También  aquí  puede  especificarse  un  área, 
como  en  TRANS.  Los  valores  preestablecidos  son  byt=0  y 
adr=$EOOO  (=57344). 

INVERS  (adr,xl,yl,x2,y2).—  Es  una  instrucción  análoga  a 
CLEAR  pero  con  inversión. 

FTEXT  x,y,a$.—  Mediante  FTEXT  es  posible,  como  con  TEXT, 
escribir  en  el  gráfico  los  textos  que  se  desee.  También  aquí  pueden 
utilizarse  todos  los  caracteres  de  control  descritos  para  TEXT.  La 
diferencia  entre  TEXT  y  FTEXT  es  que  en  FTEXT  las  instrucciones 
SIZE,  STYLE  y  SPACE  no  ejercen  efecto  alguno, 
x:  0  a  39 
y:  0  a  199 

Otras  ayudas  de  programación 

OLD.—  Mediante  OLD  es  posible  recuperar  un  programa  BASIC 
después  de  RESET  o  NEW. 

DIR  (ga)(a$).—  Se  visualiza  en  pantalla  el  directorio  de  un  Dis- 
kette,  del  Floppy  número  ga.  Mediante  a$  puede  describirse  con  más 
detalle  el  directorio  a  transferir. 


Por  ejemplo:  DIR  “*=P”  ...  muestra  en  pantalla  todos  los  ficheros 
programa  del  diskette. 

APPEND  “Nombre”  (,ga(,sa)).—  Se  carga  el  programa  “Nombre” 
y  se  añade  al  programa  BASIC  existente  en  memoria.  Los  números 
de  líneas  del  programa  añadido  deben  ser  mayores  que  los  del  primer 
programa.  El  número  establecido  de  dispositivo  es  8. 

DISK  (ga)  (“cadena  de  instrucción”).—  Mediante  DISK  es  posible 
leer  el  canal  de  errores  o  enviar  instrucciones  al  disco. 

DEV  ga.—  Se  establece  la  dirección  de  dispositivo  standard  para 
LOAD,  SAVE,  VERIFY,  GLOAD,  GSAVE,  APPEND,  DIR  y 
DISK.  Después  de  la  carga  se  preestablece  8. 

AUTO  sw.—  Después  de  la  introducción  de  una  línea  BASIC,  se 
imprime  el  siguiente  número  de  línea  aumentado  en  una  cantidad 
igual  a  sw.  Con  AUTO  0  se  pone  fin  al  proceso  de  número  de  línea. 

AT  (columna,  línea).—  Esta  instrucción  corresponde  a  PRINT. 
Además  puede  establecerse  la  columna  y  línea,  a  partir  de  la  cual  debe 
emitirse  la  siguiente  expresión.  Deben  establecerse  los  paréntesis. 
Entre  AT  y  el  primer  paréntesis  no  puede  haber  ningún  espacio  libre. 

INKEY  aS.—  Esta  instrucción  lee  un  carácter  del  teclado.  Se  espera 
hasta  que  se  pulse  una  tecla. 

Por  ejemplo: 

10  INKEY  teclaS  ....  sustituye  a  la  línea: 

10  GET  teclaS:  IF  tecla$=“”  THEN  10 

OFF.—  Se  desactiva  la  ampliación  de  instrucciones.  Para  iniciarla 
de  nuevo,  deberá  teclearse  POKE  32772, 195:SYS  64738 

Funciones 

BRUSHS.—  Mediante  esta  función,  los  pixels  ya  generados  pue¬ 
den  asignarse  a  una  variable  alfanumérica.  (Vease  BRUSH) 
POINT  (x,y).—  Esta  función  produce  los  siguientes  resultados: 
Modo  gráfico  0: 

POINT(x,y)=  0  ...Punto(x,y)  no  se  establece. 

POINT(x,y)=  1  ...Punto  se  establece. 

Modo  gráfico  1: 

Análogo  al  modo  0. 

Modo  gráfico  2: 

POINT(x,y)=  color  del  punto  (x,y) 

DEV.—  El  resultado  de  esta  función  es  la  última  dirección  de 
dispositivo  establecida  mediante  la  instrucción  DEV. 

Shhhh  ,  %bbbbbbbbbbbbbb 

Anteponiendo  $  ó  %  pueden  especificarse  números  enteros,  tam¬ 
bién  en  forma  hexadecimal  o  binaria.  La  longitud  de  los  números 
hexadecimales  o  binarios  puede  ser  de  4  ó  dieciséis  caracteres  como 
máximo. 


Otras  características 

La  instrucción  INPUT  puede  ser  abreviada  pulsando  la  tecla  admi¬ 
ración  “!”. 

Cada  salida  a  la  pantalla  de  texto  puede  ser  detenida  mediante  la 
pulsación  de  “  y  continuarla  pulsando  cualquier  teda.  F8  sirve  para 
detener  la  ejecución  de  instrucciones  de  trazado  o  de  instrucciones  de 
otro  tipo. 

Las  instrucciones  HIRES-64  pueden  abreviarse  como  instrucciones 
BASIC  normales. 

El  programa  de  código  máquina  puede  almacenarse  en  disco 
mediante: 

POKE  43,  1  :  POKE  44,  8  :  POKE  45,  44  :  POKE  46,  40 
SAVE  “NOMBRE  DE  PROGRAMA”, 8 


y  ejecutarse  con  RUN.  Para  teclear  los  “Demos”,  carga  el  “Perfecto  ' 
después  de  haber  ejecutado  el  Hires-64.  ■ 
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C □ nPUTE  ñ  -  CENTER 


UNICO  EN  ESPAÑA:  r0MP0VLNTF-s 


ELECTRONICOS 


Todo  tipo  de  repuestos 
y  manuales  en  existencias 
REPARACIONES  RAPIDAS 
A  PRECIOS  RAZONABLES 

Toda  clase  de  periféricos  a  precios  interesantes: 

Cassette  COMMODORE  1530  O  CAA  Dénr 
más  1  JOYSTICK  doble  mando...  ■  O.jUU  1188. 

Security  copy,  cinta  a  cinta  . 

20  Diskettes  Basf  1  D/HH  . 


Original-TONER  para  Copiadora 
CANON  y  MINOLTA  al  mejor 
PRECIO  del  MERCADO. 
¡COMERCIO  CONSULTENOS! 


Avda.  de  Andalucía,  17,  29002  Málaga.  Tel.:  (952)  33  27  26 

Precios  más  12%  IVA 


GRAFICOS 


Por  Georg  Ruppert 


La  resolución  gráfica  del  C-64  pre¬ 
senta  un  desafío  para  los  usua¬ 
rios  de  programas.  Con  64000  pun¬ 
tos  aislados  se  llega  pronto  a  resul¬ 
tados  limitados.  Los  rápidos  procedimientos 
aritméticos  son  muy  necesarios.  La  amplia¬ 
ción  de  comandos  GRAFIX  emplea  algorit¬ 
mos  modernos,  que  suelen  ser  empleados  en 
grandes  ordenadores  (como  el  microordena¬ 
dor  VAX.  por  ejemplo).  Los  comandos  para 
SPLINES.  son  únicos  y  facilitan  la  programa¬ 
ción  de  cun  as. 

En  todo  el  programa  se  calcula  solamente 
por  aritmética  de  enteros,  lo  que  junto  con  los 
eficaces  algoritmos,  de  por  resultado  la  gran 
velocidad  de  operación.  La  tabla  1  compara 
tiempos  con  el  S1MONS’  BASIC. 


Alta  resolución  y  multicolor 


Tabla:  comparación  de  tiempo  entre  1 

GRAFIX  v 

Simon's  Basic: 

GRAFIX 

Simon’s 

100  circuios 

18  sg. 

233  sg. 

320  líneas 
complejas 
polígono 
dibujar 

21  sg. 

41  sg. 

y  rellenar 

6  sg. 

38  sg. 

Los  comandos  del  GRAFIX  se  relacionan 
de  modo  optativo  sobre  la  gráfica  de  alta 
resolución,  o  sobre  la  gráfica  multicolor. 
Adicionalmente,  se  han  instalado  algunos 
otros  comandos  para  la  utilización  de  la  uni¬ 
dad  de  disco.  Los  comandos  emplean  los 
siguientes  parámetros: 

Zona  de  coordenadas: 

Alta  resolución:  x:  0...319.  y:  0...199 
Multicolor:  x:  0...159.  y:  0...I99 
Parámetro  “modo"  en  casi  todos  los  comandos. 
Alta  resolución:  0  =  borrar,  sin  0  =  carácter. 
Multicolor:  0=borrar.  l=dibujar  con  color  1. . 
2  =  dibujar  con  color  2.  3  =  dibujar  con  color  3. 4 
=  dibujar  con  color  1.5  =  dibujar  con  color  2, 6  = 
dibujar  con  color  3. 

Seguidamente  se  describen  los  nuevos  comandos: 
&  hgr  n  conecta  el  modo  gráfico  n. 
n  =  0  modo  texto, 
n  =  1  modo  alta  resolución, 
n  =  2  modo  multicolor. 

n  =  3  no  cambia  el  modo,  pero  los  comandos  se 
relacionan  en  alta  resolución, 
n  =  4  no  cambia  de  modo,  los  comandos  se  relacio¬ 
nan  en  modo  multicolor. 

Borrar  bit-map: 

32 


El  GRAFIX  produce 
algoritmos  rápidos, 
que  solamente  es 
posible  en  grandes 
ordenadores.  Incluso 
ofrece  comandos  para 
SPLINES. 


C-64 


Alta  resolución: 

&erase  color  del  punto,  color  de  fondo. 
Multicolor: 

&erase  color  1,  color  2,  color  3,  color  de 
fondo.  Los  colores  se  ponen  a  la  vez. 

Cambio  de  colores: 

&col  la  misma  sintaxis  que  &erase. 

Colocar  puntos: 

&dot  x, y, modo. 

Trazar  una  línea: 

&line  xl,yl,x2,y2,modo. 

Dibujar  un  círculo: 

&circle  x,y, radio, modo. 
x,y  son  el  punto  medio.  Se  emplea  el  algo¬ 
ritmo  circular  con  respecto  a  Maxwell/  Baker. 
Se  calcula  un  punto  de  arranque  y  los  puntos 
siguientes  se  calculan  con  la  división  de  la 
ecuación  circular.  Se  calcula  solamente  un 
cuarto  de  la  circunferencia,  los  cuatro  cuartos 
de  circunferencia  de  uno  en  uno,  pero  dibuja¬ 
dos  todos  al  mismo  tiempo.  El  algoritmo 
ofrece  círculos  exactos. 

Radios  y  arcos  de  circunferencia 


En  el  segundo  comando  &spline  se  dan  sólo 
tres  puntos,  los  llamados  “puntos  guía”.  G2  es 
el  punto  de  incisión  de  las  dos  tangentes  des¬ 
critas  anteriormente.  G1  y  G3  están  situados 
sobre  las  tangentes. 


Dibujar  un  arco: 

&arc  xl,yl,x2,y2,x3,y3,r,modo. 
xl,yl  es  el  punto  de  comienzo;  x3,y3  es  el 

_  punto  final.  El  arco  de  circunferencia  va  a 

dibujarse  en  el  sentido  de  las  agujas  del  reloj. 
x2,y2  es  un  punto  cualquiera  en  el  arco  de 
circunferencia  (los  puntos  son  diferentes).  El 
punto  medio  y  el  radio  se  calculan  de  forma 
interna.  Con  datos  erróneos,  el  punto  medio  no  se  situará  en  la  zona  de 
coordenadas  válida,  o  los  tres  puntos  no  forman  un  arco  circular.  Si  el 
parámetro  r  no  es  igual  a  0,  los  radios  correspondientes  también  se 
dibujarán.  En  el  modo  multicolor  se  trazarán  elipses  y  arcos  de  elipses, 
en  vez  de  círculos  y  arcos  de  circunferencia. 

SPLINES: 

L—  &bspline  xl,yl,x2,y2,x3,y3,x4,y4,g,mode 
2.—  &spline  xl,yl,x2,y2,x3,y3,g,modo 
El  primer  comando  necesita  las  coordenadas  de  cuatro  puntos.  El 
dibujo  I  muestra  cómo  el  SPLINE  va  a  derivarse  de  ahí.  Las  rectas  a 
través  de  P 1  y  P2,  y  a  través  de  P3  y  P4,  son  tangentes  del  SPLINE.  Los 
dos  puntos  P1  y  P2  son  a  su  vez  su  primer  y  último  punto.  En  medio  de 
ellos  se  encuentra  el  arco  del  SPLINE.  Este 
roza  la  línea  P2P3  en  su  punto  medio. 


BIBLIOTECA 
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Siete  puntos  para  un  SPLINE 

GRAFIX  calcula  en  el  segundo  comando  los  puntos  comprendidos 
entre  P1  y  P4,  de  los  valores  para  Gl,  G2  y  G3.  La  relación  entre 
los  siete  puntos  es  la  siguiente:  P1  es  el  punto  medio  del  recorrido 
G1-G2.  Por  otra  parte,  P1-G2  va  a  dividirse  en  dos  partes.  Las  propor¬ 
ciones  para  la  segunda  tangente  son  correspondientes.  Los  Splines 
serán  compuestos  uniendo  trozos  de  recta.  Para  ello  el  antepenúltimo 
parámetro  g  indica  la  exactitud  (g  =  0  máximo).  Con  la  g  prolongada, 
las  partes  rectas  siempre  aumentan  y  la  exactitud  disminuye.  El  valor 
más  alto  para  g  es  125.  Incluso  cuando  existe  la  mayor  exactitud,  los 
Splines  se  dibujan  más  rápido  que  los  círculos  en  algunas  otras  amplia¬ 
ciones  gráficas. 

Al  principio,  los  comandos  de  Spline  parecen  ser  muy  complicados. 
Pero  con  un  poco  de  práctica  puede  llegarse  a  escoger  correctamente  el 
punto  adecuado. 

Con  Splines  que  se  encuentren  juntos  unos  con  otros,  se  pueden 
formar  las  curvas  que  se  deseen.  La  curva  puede  dividirse  en  dos  Spli¬ 
nes:  &spline  xl,yl,x2,y2,x3,y3,g,m,  y  &spline  x2,y2,x3,y3,x4,y4,g,m.  El 
cruce  entre  los  dos  Splines  transcurre  con  suavidad,  ya  que  las  dos 
curvas  tienen  la  misma  tangente  G2-G3,  en  el  punto  de  transición. 


OCmuticolor  permanecen  los  bordes,  cuando  se  rellena  con  otro 
Programa  paralelo: 

&par  xl,yl,x2,y2,x3,y3,modo.—  Calcula  el  cuarto  punto  del  pro¬ 
grama  paralelo. 

Rectángulo: 

&rect  x,y,lx,ly,  modo.—  Corresponde  a  &par  xy=ly,x,y,x,=lx 
modo. 

Texto  en  el  bit-map: 

1 .  &char  x,y ,char-nr,xsize,ysize, offset, modo .  —  Imprime  un  carácter 
char-nr  con  los  factores  de  ampliación  xsize,ysize,  al  lugar  x,y  del  bit- 
map.  Offset  es  el  byte  alto  de  las  direcciones  de  comienzo  de  la  represen¬ 
tación  del  dibujo.  (Standard  208,  mayúsculas /minúsculas  216). 

2.  &text  x, y ,s$,xsize,ysize, offset, s, modo.—  Al  igual  que  1,  imprime  en 
el  bit-map  una  cadena  de  caracteres  (s$).  En  caso  de  que  no  sea  igual  a 
0,  el  texto  se  imprime  perpendicular.  En  los  dos  casos  el  texto  también 
puede  utilizar  otra  representación  de  dibujo.  Para  ello,  el  nuevo  juego 
de  caracteres  tiene  que  catgarse  y  sus  direcciones  de  comienzo  deben 
colocarse  en  offset. 


Inversión  del  bit-map:  inv. 

Comandos  de  disco: 

&load  sS  y  &save  s$.—  Carga/ graba  en  el  disco  el  bit-map  con 
nombre  s$. 

&dir.—  Muestra  el  directorio  del  disco.  Se  puede  interrumpir  con 

RUN/STOP. 

&disk  s$.—  Envía  el  string  s$  al  disco. 

&status.—  Muestra  el  estado  del  disco  (errores). 

Función  de  ayuda. 

&help.—  Muestra  los  nombres  de  todos  los  comandos. 

Con  datos  y  pila  de  usuario,  GRAFIX  graba  1 1 K  BYTES,  desde 
$A000  hasta  SCCOO,  es  decir,  ningún  espacio  de  memoria  BASIC.  La 
memoria  de  color  está  situada  de  SCCOO  hasta  SCFFF  y  el  bit-map 
desde  SE000. 

¡¡ATENCION  !!,  lo  primero  que  debes  hacer  es  teclear  los  programas 
1  y  2  (Gen.GRAFIX,  Transfer),  y  guardarlos  en  el  disco;  cinta.  Des¬ 
pués,  con  el  Gen.GRAFIX  en  memoria,  hacer  RUN.  Cargar  el  pro¬ 
grama  Transfer  y  ejecutarlo  (RUN). 

Teclear  SYS  828  y  todo  estará  listo.  Para  salvar  el  programa  en 
código  máquina,  basta  con  hacer  lo  siguiente: 

POKE  43,  1:  POKE  44,  8:  POKE  45,  203:  POKE  46,  44  SAVE 
“NOMBRE”,  8  (ó  1  si  tienes  cinta). 

Y  ahora  ya  se  pueden  ejecutar  las  demostraciones  o  tus  propios 
programas.  ■ 


¿QUE  SON  LOS  SPLINES? 

Los  Splines  juegan  un  papel  importante  en  el  campo  del  diseño 
asistido  por  ordenador  (CAD).  Con  su  ayuda  se  ajusta  un  con¬ 
junto  de  curvas  a  una  serie  de  puntos  ya  dados.  Hace  tiempo,  antes 
de  que  hubiese  ordenadores,  algunos  constructores  se  encontraban 
con  este  problema.  Se  solucionaba,  en  parte  de  forma  mecánica.  En 
las  coordenadas  de  los  puntos  deseados,  se  ponían  clavos  sobre  una 
pared  de  madera.  Entre  estos  clavos  había  tiras  de  madera  delgadas 
y  húmedas,  los  llamados  Splines.  El  contorno  de  la  curva  de  las 
tiras  de  madera  se  pasaba  entonces  al  papel.  Hoy  se  consigue  el 
mismo  resultado  con  ayuda  de  los  ordenadores.  La  base  matemá¬ 
tica  de  los  Splines  es  muy  complicada,  son  necesarios  buenos  cono- 
cimentos  de  álgebra  y  cálculo  matricial.  GRAFIX  crea  los  Splines. 
que  se  dibujarán  en  una  rutina  recursiva.  ■ 


4  A=40960: B=50366 

5  FORI-ATOBiGOSUBBsS-S+VsPOKEI.V 

6  NEXT i READT i  I FS<  >TTHENPR I  NT  "  C RVSON 
] ERROR  EN  DATAS! 

7  PRI NT "CARGA  LA  SEGUNDA  PARTE" : END 
B  V=0 1 READH*  s  GQSUB7 :  V=V*  1  h :  H*=M  I D %  ( 


C0MM0D0RE  WORLD 


(%,  GRAFICOS 


.048  DATA9E,B7,E0,01,B0,03,4C,00,C2  .184 
1047  DATAE0, 1 A , 90 , 03 , 4C , 00 ,C2 , 8E , B0  .253 

1050  DATAB1,20,FD,AE,20,9E,B7,8E,B1  .86 

1051  DATAB1,20,FD,AE,20,9E,B7,8A,29  .159 

1052  DATA01,8D,61,B2,20,FD,AE,20,9E  .62 

1053  DATAB7,8A,29,07,85,02,20,2E,C1  .117 

1054  DATA20, 62, B2,4C, 36, C1 ,00,00,00  .246 

1055  DATA00.00, 1168018  .87 


PROGRAMA:  TRANSFER  LISTADO  2 

100  FORI=0TO43: READA : P0KE828+ I ,  A: NE  .202 
XT 

110  :  .86 
120  DATA  169,54,133,1,169,0,162,160  .34 
130  DATA  133,251,134,252,169,1,162  .136 

140  DATA  8,133,253,134,254,160,0  .150 

150  DATA  177,251,145,253,136,208  .38 

160  DATA  249,230,252,230,254,165,25  .56 
2 

170  DATA  201,197,208,239,169,55,133  .102 
180  DATA  1,96  .196 


PROGRAMA:  GRAFIX.DEM1  LISTADO  3 

1000  REM  PROGRAMA  DE  DEMOSTRACION  .45 

1010  PGKE  53280,0  :  POKE  53281,0  .121 

1080  :  .36 

1090  GOTO  2000  .20 

1100  :  .56 

1110  REM  PROGRAMA  PRINCIPAL  .98 

1120  :  .76 

1130  ScTEXT  103, 185,  "  CSHIFTP3ULSA  ES  .138 

PACIO", 1,1, 216, 0,1 

1135  GOSUB  1400  :  IF  F*=“  "  THEN  11  .81 
50 

1140  GET  A*  :  IF  A*<>“  “  THEN  1140  .154 

1150  RETURN  .188 

1160  :  -llí» 

1170  Z=159*RND(1>  .14 

1180  RETURN  .218 

1190  :  .146 

1200  Z=200*RND ( 1 )  -90 

1210  RETURN  -248 

1220  :  .176 

1360  :  .61 

1400  REM  MENU  ■ 153 

1410  :  -111 

1420  GET  F*  :  IF  F*="“  THEN  1420  .245 

1430  F=A5C(F$)  :  IF  F<133  OR  F>136  .133 

THEN  1500 

1440  IF  F=133  THEN  PF=PF+1  AND  15  .171 

1450  IF  F=134  THEN  PF=PF-1+16  AND  1  .171 

5 

1460  IF  F=135  THEN  HF=HF+1  AND  15  .45 

1470  IF  F=136  THEN  HF=HF-1+16  AND  1  .47 

5 

1480  ScCOL  PF,HF  :  GOTO  1420  .243 

1490  :  -191 

1500  RETURN  .27 

1510  :  .211 


2000  REM  PROGRAMA  SECUNDARIO 
2010  : 

2020  REM  1NICIALI Z ACION 
2040  ScHGR  1 
2050  ScERASE  7,0 
2060  : 

2070  REM  CUADRO  DE  TITULO 

2080  ScBSPLINE  0,99,0,0,319,0,319,99 

,24,1 

2090  ScBSPLINE  0,100,0,199,319,199,3 


167 

201 

139 

224 


19. 100.24.1 
2100  : 

2110  ScTEXT  52,60,  "  CSHIFTM3UESTRA"  ,  4 
,5,216,0,1 

2120  ScTEXT  52 ,110,"  CSHIFTGIRAFICA"  , 

4,5,216,0,1 

2130  : 

2140  ScBSPLINE  5,99,5,5,314,5,314,99 
,24,1 

2150  ScBSPLINE  5,100,5,194,314,194,3 

14.100.24.1 

2160  ScBSPLINE  10,99,10,10,309,10,30 

9.99.24.1 

2170  ScBSPLINE  10,100,10,189,309,189 
,309,100,24,1 
2180  : 

2190  GOSUB  1140 
2200  : 

2210  REM  MENU 
2220  ScERASE  6,0 
2230  ScRECT  0,0,319,199,1 
2240  i 

2250  ScTEXT  75,15,"  CSHIFTM1ENUC 2SPC 

I", 3, 4, 216, 0,1 

2260  ScRECT  5,5,309,49,1 

2270  : 

2280  ScTEXT  65, 75,  "  CSHIFTF1 1  C5SPC1 CS 
HIFTRIECTAS" , 1 ,2,216,0,1 
2290  ScRECT  25,70,269,24,1 
2300  : 

2310  ScTEXT  65 , 105 ,  "  CSHIFTF33C5SPC3  C 
SHIFTC3IRCULOS  Y  ARCOS  ",1,2,216,0, 

2320  ScRECT  25,100,269,24,1 
2330  : 

2340  ScTEXT  65, 135 ,  "  CSHIFTF35C5SPC1  C 
SHIFTS1  PUNES”  ,1,2,216,0,1 
2350  ScRECT  25,130,269,24,1 
2360  : 

2370  ScTEXT  65, 165 ,  "  ISHIFTF37C5SPC3  C 
SH I FTC I AMB 10", 1,2,216, 0,1 
2380  ScRECT  25,160,269,24,1 
2390  : 

2400  : 

2410  GET  A*: IF  A*=" "  THEN  2410 
2420  IF  ASC (A$>  < 133  OR  ASC (A*) >136 
THEN  2410 
2430  : 

2440  IF  ASC (A*) =133  THEN  GOSUB  3000 
2450  IF  ASC (A*) =134  THEN  GOSUB  4000 
2460  IF  ASC (A*) =135  THEN  GOSUB  5000 
2470  IF  ASC (A*) =136  THEN  GOTO  7000 
2480  GOTO  2200 
2490  : 

3000  REM  LINEAS 
3070  i 

30B0  PF=3  :  HF=0  :  ScERASE  PF  ,HF 

3090  FOR  X=1  TO  350  STEP  2 

3100  A=50*SIN ( X/ 10) +160 

3110  B=60*SIN(X/20)+80 

3120  C=70*SIN (X/30) +160 

3130  D=80*SIN ( X/ 40) +80 

3140  ScLINE  A,B,C,D,  1 

3150  NEXT 

3160  GOSUB  1130 

3170  : 

3175  PF=4  :  HF=0  :  ScERASE  PF  ,HF 
3180  FOR  X=1  TO  319  STEP  4 
3190  A=X 

3200  B=60*SIN (X/60) +100 
3210  C=40*SIN  ( X/25)  +160 
3220  D=20*SIN (X/30) +100 
3225  ScLINE  A,B,C,D,1 
3230  NEXT 
3240  GOSUB  1130 
3250  : 

3260  RETURN 
3270  : 

4000  REM  CIRCULOS 
4010  : 

4020  PF=5  :  HF=0  :  ScERASE  PF.HF 
4030  FOR  X=2  TO  110  STEP  2 
4040  ScCIRCLE  1 .  B*X+10 ,50*SIN  (X/30—. 


.36 

.74 

.  150 


176 

124 

154 

194 

116 

252 

136 

198 

136 

110 

150 

250 

206 

8 

4 

236 

43 


,25 

.131 

.79 

.41 


133 

71 

81 

201 

77 


87 

171 

253 

15 

167 

171 


248 

.202 


,  136 
,  144 
.212 


119 


164 

222 

2 

162 

87 

180 

250 

166 

2 

186 

151 

161 

231 

147 

105 
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4200  PF=13  :  HF=0  :  «.ERASE 
4220  X 2=159  :  Yl=100  :  Y3= 
4240  FOR  1=150  Tü  0  STEP  - 


4295  S.ARC  X1,Y1,X2,Y2,X3,Y3,0,1 

4300  Y2=199  s  X1=X3  :  X3=I 

4320  IF  I  >60  THEN  :  Í.ARC  X1,Y1,X2,Y 

2,X3,Y3,1,1  s  GOTO  4330 

4325  Í.ARC  X1,Y1,X2,Y2,X3,Y3,0,1 

4330  NEXT 

4340  : 

4350  GOSUB  1130 
4360  : 

4370  RETURN 
5000  REM  SPLINES 
5010  J.HGR  2 

5020  F=1  :  «.ERASE  2, 5,6,0 

5030  «.TEXT  0,170,  "PRUEBA  CON  CSHIFT 

S 1 PL INES ",1,1,216, 0,1 

5040  «.TEXT  0 , 180 ,  "  CSHIFTP3ULSA  ESPA 

CIO", 1,1, 216, 0,1 

5050  : 

5060  GOSUB  1170  :  X1=Z 

5070  GOSUB  1200  :  Y1=Z 

5080  GOSUB  1170  :  X2=Z 

5090  GOSUB  1200  :  Y2=Z 

5100  GOSUB  1170  :  X3=Z 

5110  GOSUB  1200  :  Y3=Z 

5120  1=1+1  ¡  IF  1=25  THEN  1=0  :  F=F 

+1  :  IF  F=4  THEN  F=1 

5130  «.SPLINE  XI  ,Y1  ,X2,Y2,X3,Y3,4,F 

5140  X 1=X2  ¡  Y1=Y2 

5150  X2=X3  :  Y2=Y3 

5160  GOSUB  1170  :  X3=Z 

5170  GOSUB  1200  :  Y3=Z 

5180  GET  W*  :  IF  W*=""  THEN  5120 

5190  bHGR  1 

5200  RETURN 

6000  REM  EJEMPLOS 

6010  : 

6015  PF=10  ¡  HF=0  :  AERASE  PF,HF 
6020  REM  SI NO, COSENO 
6030  : 

6040  «.LINE  0,99,319,99,1 
6050  S.LINE  159,0,159,199,1 


6100  «.LINE  159,0,154,5,1 
6110  «.LINE  159,0,164,5,1 
6120  : 

6130  «.TEXT  259 , 101 ,  "  CSHIFTE3 JE— CSHI 
FTX 1", 1,1, 216, 0,1 

6140  «.TEXT  161 ,6,  "CSHIFTE3JE— CSHIFT 
YJ", 1,1, 216, 1,1 

6142  «.TEXT  10,10,  "*C2SPC3 CSHIFTS3EN 
O”, 1,1, 216, 0,1 

6144  «.TEXT  10,20,  "+C2SPC3 CSHIFTC30S 
ENO", 1,1, 216, 0,1 
6150  ! 

6160  HELP=300/<2*CPI3> 

6170  FOR  X=— CPI 1  TO  CPU  STEP  .1 
6175  XP=X*HE+155  i  YP=-SIN (X) *97+97 
6180  J.CHAR  XP,YP,ASC("*n) ,1,1,216,1 
6190  YP=-COS(X) *97+97 
6200  Í.CHAR  XP,YP,ASC<"  +  ">  ,1,1,216,1 
6210  NEXT 
6220  : 

6230  GOSUB  1130 
6240  : 

6420  REM  DEMOSTRACION  DE  CARACTERES 


6440  PF=15  :  HF=0  :  «.ERASE  PF,HF 
6450  «.TEXT  10,10,"  CSHIFTD3EMOSTRACI  . 
ON  DE  CARACTERES  :", 1 , 1 ,216,0,1 
6460  «tTEXT  10,60, "CSHIFTC30MM0D0RE  . 
MAYUSCULAS /MINUSCULAS" ,1,1,216,0,1 
6470  «<TEXT  10, 110,  "COMMODORE  GRAFIC  . 
OS  :  CSHIFTA3  CSHIFTS3  CSHIFTZ3  CSH 
IFTX3  CCOMM+3  CCOMM*3  CLIBRA3 " , 1 , 1 , 
208,0, 1 
6490  : 

6494  GOSUB  1130 
6496  : 

6500  «.ERASE  PF,HF 

6510  «<TEXT  50, 10,  "EN  MODO C 2SPC 3 C SH I 
FTM 3 AYUSCULAS  s ",  1 , 1 ,216,0, 1 
6520  «.LINE  50,20,50+27*8,20,1 
6530  : 

6540  «<TEXT  16, 87 ,  "  C  SH I FTC 3  OMMODORE 
64", 3, 3, 216, 0,1 
6545  GOSUB  1130 
6550  : 

6560  FOR  1=0  TO  10 

6570  «iRECT  0+1, B7+1, 319-2*1, 21-2*1, 


6590  : 

6599  FOR  1=1  TO  200  :  NEXT 

6600  «.TEXT  103 , 185 ,  "  CSHIFTP3ULSA  ES 
PACIO", 1,1, 216, 0,0 

6610  «.TEXT  50, 10,  "EN  MODOC2SPC3  CSHI 
FTM 3 AYUSCULAS  :", 1 , 1 ,216,0,0 
6620  : 

6629  FOR  1=1  TO  200  :  NEXT 

6630  S.TEXT  50, 10,  "NATURALMENTE  TAMB 


6660  «.TEXT  50 ,18," CPI3CPI3CPI3CPI3C 
PI 3 CPI 3 CPI 3 CPI 3 CPI 3 CPI 3 CPI 3 CPI 3 CPI 3 
CPI 3 CPI 3 CPI 3 CPI 3 CPI 3 CPI 3 CPI 3 CPI 3 CPI 
3  CPI  3  CPI  3  CPI  3  CPI  3  ",1,1,216, 0,1 
6670  í 

6680  «.TEXT  20 , 50,  "  CSHIFTE3SCRITO"  ,  4 
,2,216,1,1 

6690  «.TEXT  116,90, "POR", 5, 2, 216, 0,1 
6700  «.TEXT  259 , 50 ,  "  C SH  I FTR 3  UPPERT "  , 
4,2,216,1,1 
6710  ■ 

6720  GDSUB  1130 
6730  i 

6740  «.ERASE  PF,HF 
6800  «.ERASE  PF,HF 

6810  «.TEXT  0,0,  "GEORG  RUPPERT"  ,3,25 
,208,0,1 
6900  GOSUB  1130 

6999  RETURN 

7000  «.TEXT  65,75,  "  C7SPC3  CSHIFTR3ECT 
AS" , 1,2,216,0,0 

7010  «.TEXT  65 , 105,  "  C7SPC3  CSHIFTC3  IR 
CULOS  Y  ARCOS  ",1,2,216,0,0 
7020  «.TEXT  65, 135 ,  "  C7SPC3  CSHIFTS3PL 
INES", 1,2, 216,  “  - 


105, " C7SPC3  CSHIFTP3EL 


7050  «.TEXT  65,11 
OTA", 1,2,216,0, 
7060  «.TEXT  65,  i; 
FICO  DE  TARTA", 
7100  REM  SALIDA 
7110  GET  A*: IF  I 
7120  IF  ASC(A*)' 


7140  IF  ASC (Aí) =133  THEN  GOSUB  8000 
7150  IF  ASC (A*) =134  THEN  GOSUB  9000 
7160  IF  ASC (A*) =135  THEN  GOSUB  1000 
0 

7170  IF  ASC (A*) =136  THEN  GOTO  11000 
7180  GOTO  2200 

7200  «.TEXT  65,75,  "  C7SPC3  CSHIFTD3EMO 
STRAR  C SH I FTC 3 I RCULOS “ , 1 ,2,216,0,0 
7210  «.TEXT  65, 105 ,  "  C7SPC3  CSHIFTL3  IN 
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EAS", 1,2, 216, 0,0 

7220  StTEXT  65, 135 ,  "  C7SPC3  LSHIFTT3EX 
TOC5SPC3", 1,2,216,0,0 
7230  StTEXT  65 ,75,  “  C7SPC3  CSHIFTR3ECT 
AS" , 1,2,216,0,1 

7240  StTEXT  65, 105,  "  C7SPC1  CSHIFTCJ  IR 
CULOS  Y  ARCOS  ",1,2,216,0,1 
7250  8<TEXT  65, 135,  "  C7SPC3  CSHIFTS3PL 
INES", 1,2, 216, 0,1 


5  StTEXT  8,80, "COMMODORE" ,2,5,216 


LL  95,105,3 
LL  113,100,3 
LL  143,95,3 


9020  StHGR  2 
9030  tiERASE  0,0, 0,0 
9040  StCIRCLE  79,49,35,2 
9050  StCIRCLE  34,139,35,2 
9060  StCIRCLE  124,139,35,2 
9070  StFILL  79,34,1 
9080  StFILL  34,139,2 
9090  StFILL  124,139,3 
9100  StCIRCLE  79,49,35,5 
9110  StCIRCLE  34,139,35,5 
9120  StCIRCLE  124,139,35,5 
9130  s 

9140  Fl=0iF2=6iF3=0 
9150  H=F1:F1=F2:F2=F3:F3=H 
9160  StCOL  F1 ,F2 , F3 , 0 


10190  StHGR  1 
10200  RETURN 

11000  StTEXT  65 , 75,  "  C7SPCI  CSHIFTR3EL 
LEÑAR", 1,2, 216, 0,0 

11010  StTEXT  65,  105,  " C7SPCI CSHIFTP3E 
LOTAC3SPC3 " , 1 ,2,216,0,0 

11020  StTEXT  65 , 135 ,  "  C7SPC3  CSHIFTGJR 
AFICO  DE  TARTA", 1,2, 216, 0,0 

11021  StTEXT  65,75, " C7SPC3  CSHIFTDDEM 
OSTRAR  C SH I FTC 3 1 RCULOS ",1,2,216,0,1 

11022  I.TEXT  65 , 105 ,  "  C7SPC3  CSHIFTL3  I 


11023  ítTEXT  65 , 1 35 ,  "  C  7SPC  3  I  SI 
XTOC7SPC3", 1 ,2,216,0,1 
11030  REM  SALIDA 
11040  GET  A*¡IF  A*=""  THEN  1! 
11050  IF  ASC(A$><133  OR  ASC(Í 


I  IF  ASC (A$) =133  THEN  GOSUB  120 


I  IF  ASC (A*) =134  THEN  GOSUB  130 


11100  IF  ASC (A*) =136  THEN  GOTO  7200 
11110  GOTO  2200 

12000  REM  STR4EM0STRACI0N  DE  CIRCUL 
OS 

12010  StHGR  2 

12020  ScERASE  2, 5, 3,0 

12030  S.CIRCLE  79,99,75,1 

12031  Í.PAR  159,99,79,30,0,99,1 

12032  Í.PAR  79,0,45,99,79,199,1 

12035  Í.CIRCLE  79,99,30,1 

12036  &SPLINE  0,199,79,0,159,199,4, 

12037  Í.SPLINE  0,0,79,199,159,0,4,1 
12040  ÍíFILL  10,99,3 

12050  íiFILL  149,99,3 

12060  S<FILL  0,0,2:  &FILL  0,199,2:t<FI 

LL  159 ,0,2:  StFILL  159,199,2 

12070  I.FILL  79,99,3 

12080  &FILL  79, 36, 3: StFILL  79,163,3 

12090  StFILL  79,60,2 

12100  F1=2:F2=5:F3=6 

12110  H=F2: F2=F3: : F3=H 

12120  StCOL  F1,F2,F3,0 


12140  StHGR  1 
12150  RETURN 
13000  REM  LINEAS  2 


13040  StTEXT  10,80,  "  CSHIFTL3 INES  DE  .34 

TEXTO  JUNTO  CON  RECTAS" , 1 , 1 ,216,0, 1 
13050  StTEXT  10, 90," DE  ALTA  RESOLUCI  .122 
ON. ",1,1,216, 0,1 

13060  StTEXT  10,100,"  CSHIFTPIRUEBA  E  .41 
STE  RECURSO  ! C 13SPCI " , 1 , 1 ,216 ,0, 1 
13070  GOSUB  1130  .135 

13080  :  .51 

13090  StLINE  0,0,319,198,1  .177 

13100  StLINE  0,1,319,199,1  .191 

13110  StLINE  159,0,159,199,1  .123 

13120  StLINE  160,0,160,199,1  .47 

13130  StLINE  0,199,319,0,1  .81 

13140  StLINE  1,199,319,1,1  .221 

13150  StFILL  157,97,0  .73 

13160  GET  W*:IF  w*=“"  THEN  13090  .53 


32  StBSPLINE40 , 70 , 59 ,70,70,43, 62 , 40 ,  .140 
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MUSICA  POR  INTERRUPCIONES 


Por  Horst  Abendschein 


lador  traduce  el  comando  de  música  en 
tablas  de  sonido.  No  se  escuchará  nada  de 
momento,  porque  el  intérprete  debe  trabajar 
mucho  para  crear  estas  tablas.  Es  ahora 
cuando  suena  la  composición.  Lo  especial  es 
que  hay  trozos  de  música  que  se  dejan  grabar 
en  otros  programas  sin  ningún  tipo  de  pro¬ 
blema  posterior.  La  música  en  lenguaje 
BASIC  corre  regulada  alternativamente  y  no 
molesta  a  la  salida  de  los  respectivos  pro¬ 
gramas  principales. 

£1  compilador  produce  tablas 
de  música 


Estructura  v  modo  di 
en  BASIC: 


L—  La  ampliación  de  BASIC.  MUSIK- 
BASIC  (zona:  S8000-S8B9F).  Todos  los  nue¬ 
vos  comandos  van  a  memorizarse  como  dos 
”token"  de  BASIC.  Para  todos  los  paráme¬ 
tros  de  los  nuevos  comandos  pueden  utili¬ 
zarse  variables  o  cualquier  tipo  de  expresio¬ 
nes  complicadas.  Ejemplo:  TABLE  A,B, 

C*2/5. 

Al  contrario  que  otras  ampliaciones  de 
música,  los  comandos  no  se  ejecutan  inme¬ 
diatamente.  sino  que  se  deja  un  código  espe- 
cial  en  tablas  de  música.  Con  el  comando 
1RQON  se  ejecutarán  automáticamente  estas 

2  —  Las  tablas  de  música  (la  zona  la  define  el  usuario):  En  las  tablas 
de  música  todas  las  informaciones  están  memorizadas,  y  son  necesa¬ 
rias  para  tocar  las  canciones  compuestas.  La  estructura  de  las  tablas 
se  efectúa  automáticamente  sobre  los  comandos  de  música  en 
BASIC.  Para  cada  voz  tiene  que  colocarse  una  tabla.  Sin  embargo, 
cada  voz  puede  desconectarse  inmediatamente  con  un  código  de 
tablas.  La  duración  de  las  tablas  depende  de  la  cantidad  de  informa¬ 
ción.  Dentro  de  las  tablas  pueden  instalarse  cualquier  tipo  de  direc- 


ltes  T  íl  miiciríí  Ptl  RA^sTP  de  la  forma  de  onda  y  de  la  curva  de  envol- 
jni-  L"a  111  Aldisa  urtkjt  v  tura.  Se  dan  las  formas  siguientes:  triángulo, 

por  cp  n  1 1 pH  P  TA r oH  1 1P1  r  cuadrada,  diente  de  sierra  y  ruido.  Con  la 

ate-  NC  pUCUC  piUUUCII  curva  envolvente  se  fija  el  desarrollo  de  la 

api-  con  acompañamiento  tonalidad,  que  se  determinará  con  el 

en  ,  r  parámetro: 

,  de  de  tres  voces,  pOr  ATTACK:  Tiempo  en  el  que  la  potencia 

ajar  •  * _ • _ _  /-i__  aumenta  de  cero  al  valor  más  alto  (2msg-8sg). 

lora  íntemipClOneS.  UOIl  DECAY:  Tiempo  en  el  que  la  intensidad 

lies  pl  nrnara  m  U  P  baja  del  máximo  al  sostenido  (6msg-24sg). 

bar  piugiama  UL  SUSTAIN:  Intensidad  que  se  desarrolla 

MUSICA  POR  durante  la  fase  de  mantenimiento  (0-15). 

taje  __  _  _  __  _ _  _  RELEASE:  Tiempo  en  el  que  la  potencia 

,  no  INTERRUPCIONES,  baja  de  cero  tras  el  mantenimiento  de  SUS- 

jro-  •  1 1  T AIN  (6msg-24sg).  El  volumen  de  la  máxima 

6S  mUy  SCnClllO.  potencia  (O- 1 5).  Las  voces  pueden  enviarse  a 

través  de  filtros,  los  cuales  también  pueden 
’  combinarse:  filtro  de  paso  alto,  filtro  de  paso 

banda  y  filtro  de  paso  bajo. 

Modulación  en  anillo 

¡jj£_  'T'odas  las  partes  pueden  ser  sincronizadas 

lue_  X  y  moduladas  en  anillo.  Con  una  reso- 

(jos  nancia  de  filtro  regulable,  pueden  realizarse 

me_  determinadas  frecuencias.  La  frecuencia  de 

filtro  también  puede  regularse. 

,sjc_  Los  nuevos  comandos: 

V,B,  1. —  Ayudas  de  programación: 

AUTO  línea  de  comienzo,  anchura  de  paso. 
;  de  Ejemplo:  AUTO  100,10.  Los  números  de 

¡me-  las  líneas  serán  dados  automáticamente.  Sin 

spe-  _  indicación  paramétrica  se  tomarán  los  últi- 

ndo  mos 

¡stas  RENUM  valor  de  comienzo,  incremen- 

Fine  el  usuario):  En  las  tablas  Ejemplo:  RENUM  100,10.  Un  programa  BASIC  se  numera  nue- 
memorizadas,  y  son  necesa-  vamente  y  se  cambian  los  vectores  de  salto.  Para  números  de  línea  no 
i.  La  estructura  de  las  tablas  existentes,  se  da  el  valor  65535. 

,  comandos  de  música  en  ACTIVE  con  RUN/STOP  +  RESTORE  los  punteros  de  la  página 
rse  una  tabla.  Sin  embargo,  cero  se  ajustan.  Y  con  el  mismo  comando  se  corrigen, 
lamente  con  un  código  de  KEY  l-8,“texto”.  Las  ocho  teclas  de  funciones  se  programan  con  el 
e  de  la  cantidad  de  informa-  texto  de  forma  directa.  Si  el  texto  acaba  con  ”  (flecha  a  la  izquierda), 

arse  cualquier  tipo  de  direc-  al  pulsar  la  tecla  de  función,  se  ejecuta  inmediatamente  el  comando  o 


'on  ello  es  posible  la  instalación  de  infinite 


instrucción  en  cuestión.  El  texto  podrá  te 


3.—  El  intérprete  de  música  MUSIK-INT  (zona:  $C000-$C1BD):  ....  ,  •  „ . 

Con  este  corto  programa,  la  canción  compuesta  y  colocada  en  clave  Comandos  de  música  en  lenguaje  BASIC. 

en  las  tablas,  suena  automáticamente.  Esto  ocurre  independiente-  Este  liP°  de  comandos  no  de¡a  ningún  dat0  en  las  tablas  de  música- 

mente  de  la  ampliación  BASIC  y  de  los  programas  en  BASIC  o  TABLE  voz,  principio  de  las  tablas,  final  de  las  tablas. 


código  máquina,  que  funcionen  en 
música  se  ejecutan  paso  a  paso,  hasi 
esta  rutina  se  desconecte  de  nuevo. 


Cada  parte  se  diferencia  a  través 


>:  parte  1-3.  Principio  de  las  tablas  0-65535.  Final  de  las 
tablas  0-65535.  Una  parte  se  asigna  a  una 

-  determinada  zona  de  la  memoria  de  trabajo. 

En  esta  tabla  se  depositan  los  códigos  de 
música  programados.  Las  tablas  tendrían 
que  depositarse  en  una  zona  protegida  por  el 
_  BASIC. 
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TABLE  x  tiene  que  ser  definido  primeramente,  antes  de  que  se 
programe  un  código  de  tablas  para  la  voz  x.  Si  no  se  presta  atención 
seguirá  un  aviso  de  error.  Si  se  define  una  tabla  menor  de  5  bytes, 
continuará  igualmente  un  aviso  de  error.  Está  permitido  dejar  traba¬ 
jar  más  partes  con  la  misma  tabla. 

VOICE  voz.  Parámetro  1-3. 

Ejemplo:  VOICE  1.  Se  define  para  qué  tabla  valen  los  comandos  de 
música  que  siguen.  VOICE  tiene  que  definirse  antes  de  que  se  pro¬ 
duzca  para  una  parte  de  música  clave. 

CLEAR.  Borra  todas  las  tablas  y  sus  definiciones.  CLEAR  se  eje¬ 
cuta  automáticamente  tras  cada  RUN. 

IRQON.  Se  pone  en  marcha  la  ejecución  de  las  tablas  de  música. 
Pero,  atención:  el  sistema  se  puede  bloquear  si  no  existe  un  final 
lógico  para  alguna  voz  (SWITCH,  RESTART,  POINTER). 
IRQOFF.  El  intérprete  musical  se  desconecta  y  el  volumen  se  pone  a 

TSAVE  voz,  “nombre”,  dirección  de  periférico.  Parámetro:  1-3. 
“nombre”,  máximo  16  caracteres.  Dirección  de  periférico,  8  para 
disco,  1  para  cassette.  Las  tablas  para  las  voces  indicadas,  son  memo- 
rizadas  hasta  la  posición  actual.  Esta  tabla  puede  ser  cargada  por  otro 
programa  (LOAD“nombre”,8,l)  y  puede  ser  utilizada  por  el  intér¬ 
prete  MUSIC-INT  para  la  producción  de  música.  No  debe  memori- 
zarse  ninguna  tabla  en  la  que  no  se  haya  memorizado  ningún  dato 
musical. 

3.—  Comandos  para  producir  una  tabla  musical: 

Este  grupo  de  comandos  deja  un  código  en  las  tablas  de  música. 
SOUND  frecuencia,  pausa  1,  pausa  2.  Parámetro:  frecuencia  0- 
65535,  pausa  1  de  0  a  255,  pausa  2  de  0  a  255.  Con  SOUND  se  pone 
un  tono  en  la  tabla  de  música.  La  frecuencia  determina  la  altura  del 
tono;  la  pausa  1,  el  tiempo  de  parada;  la  pausa  2,  el  espacio  de  tiempo 
entre  el  tiempo  de  emisión  y  el  cambio  de  los  tonos  siguientes  (pausa 
entre  dos  tonos).  Los  dos  valores  de  pausa  están  entre  0  (para  cero)  y 
4  y  3  (para  255  segundos). 

Atención:  el  byte  bajo  de  la  frecuencia  no  puede  ser  cero.  Dará  un 
mensaje  de  error  en  ese  caso. 

PLUS  frecuencia.  Parámetro:  frecuencia  de  0  a  4095.  La  amplitud 
de  pulsación  para  una  voz  es  definida  por  este  comando.  Esto  tiene 
sentido  solamente  en  una  oscilación  del  tipo  rectángulo. 

WAVE  forma  de  onda,  sinc,  anillo.  Parámetro:  forma  de  onda: 
1  =  triángulo;  2  =  diente  de  sierra;  3  =  cuadrado;  4  =  ruido.  Sinc 
0  =  no  /  1  =  si,  círculo  0  =  no  /  1  =  si. 

Sinc  efectúa  una  sincronización  de  la  voz,  el  anillo  provoca  una 
modulación  en  anillo. 

ENVELOPE  ataque,  decaimiento.  Parámetro:  ataque  0-15,  decai¬ 
miento  0-15.  Se  define  el  ataque  y  decaimiento. 

HOLD  sostenido,  relajación.  Parámetro:  sostenido  0-15,  relajación 
0-15. 

VOLUME  intensidad,  paso  bajo,  paso  de  banda  y  paso  alto.  Pará¬ 
metros:  intensidad  0-15.  Paso  bajo  0  =  desconectado,  1  =  conecta¬ 
do.  Paso  de  banda  0  =  desconectado,  1  =  conectado.  Paso  alto 
0  =  desconectado,  1  =  conectado. 

Se  fija  la  máxima  intensidad  de  tono.  En  adelante  se  podrá  conec¬ 
tar  o  desconectar  cada  filtro.  La  potencia  máxima  es  válida  las  tres 

FILTER  frecuencia.  Parámetro:  frecuencia  0-2048.  La  frecuencia 
angular  queda  determinada  con  este  comando. 

RESONANZ  frecuencia,  stl,  st2,  st3.  Parámetro:  frecuencia  0-15. 
stl  0-1  (0  =  no  es  sobre  el  filtro,  1  =  voz  1  sobre  el  filtro). 

st2  0-1  (0  =  no  es  sobre  el  filtro,  1  =  voz  2  sobre  el  filtro). 

st3  0-1  (0  =  no  es  sobre  el  filtro,  1  =  voz  3  sobre  el  filtro). 

La  frecuencia  de  resonancia  del  filtro  se  define  de  esta  manera. 

Los  parámetros  stl,  st2,  st3  indican  si  tienen  que  ser  dirigidas  las 
respectivas  voces  sobre  los  filtros. 

PAUSE  x.  Parámetro  x  0-255.  El  tiempo  x  (1  /  60  segundos)  esperará 
hasta  los  próximos  tonos. 

SWITCH.  En  las  tablas  de  las  voces  actuales,  se  coloca  un  código 
que  desconecta  la  voz. 

POINTER  x.  Parámetro:  x  0-65535.  Se  instala  un  código  en  la  tabla 
de  música,  el  cual  coloca  el  puntero  de  las  tablas  a  la  señal  x,  mientras 
se  compone  la  canción.  Se  puede  observar  una  señal  durante  la  can¬ 
ción,  con  ayuda  de  la  función  POINT  (X). 

RESTART.  Se  coloca  un  código  en  la  tabla  de  música,  el  cual  vuelve 
a  dirirgir  el  puntero  de  las  tablas  al  principio,  mientras  se  toca  la 


LISTA  DE  COMANDOS 

TABLE 

VOICE 

SOUND 

PLLS 

WAVE 

ENVELOPE 

HOLD 

POINTER 

PAUSE 

RESTART 

SWICTH 

IRQOFF 

IRQON 

VOLUME 

FILTER 

CLEAR 

POINT 

TSAVE 

INFO 

RESONANZ 

TABSTART 

TABEND 

CURRENT 

RENUM 

ACTIVE 

AUTO 

KEY 

4.  —  Funciones  de  música  en  lenguaje  BASIC. 

TABSTART  (X).  Pon  la  voz  x  al  comienzo  de  la  tabla.  Ejemplo:  100 
A  =  TABSTART  (1) 

TABEND  (X).  Muestra  el  final  de  la  tabla  para  la  voz  X. 

POINT  (X).  Pone  el  actual  indicador  de  tablas  de  la  voz  X.  En  esta 
dirección  se  coloca  el  próximo  código  de  música.  A  través  del 
comando  POINTER  X  y  la  función  POINT  (X)  se  pueden  programar 
lazos  de  tonos.  Ejemplo: 

100  A  =  POINT  (1) 

200  POINTER  A 

La  parte  de  la  tabla  que  se  genera  a  través  de  los  comandos  entre  la 
línea  100  y  la  línea  200,  se  tocan  de  forma  interminable. 

INFO  (X).  Envía  una  afirmación  referente  a  si  la  voz  X  es  aún 

CURRENT.  Da  la  voz  actual.  Ejemplo: 

10  A  =  CURRENT 

20  PR1NT  A 

5. —  Mensajes  de  error  en  el  MUSIK-BASIC. 

TABLE  UNDEFINED.  Se  ha  elegido  una  voz  para  la  que  no  se  ha 
definido  todavía  una  tabla. 

TABLE  OVERFLOW.  En  la  tabla  de  música  hay  menos  de  cinco 
bytes  libres. 

VOICE  NOT  ACTIVE.  Se  ha  programado  un  código  de  música 
para  una  voz  desactivada. 

LO-BYTE  =  ZERO.  En  el  comando  SOUND.  el  byte  de  la  frecuen¬ 
cia  es  cero  (no  permitido). 

BAD  OSCILLATION.  Formas  de  onda  ilegales  en  el  comando 
WAVE. 

BAD  ATTACK.  Valor  ilegal  en  el  comando  ENVELOPE. 

BAD  DECAY.  Valor  ilegal  en  el  comando  ENVELOPE. 

BAD  SUSTAIN.  Valor  ilegal  en  el  comando  HOLD. 

BAD  RELEASE.  Valor  ilegal  en  el  comando  HOLD. 

BAD  VOLUME.  Intensidad  de  volumen  errónea. 

BAD  FREQUENCY.  Frecuencia  no  permitida. 

NO  VOICE  DEFINED.  Voz  no  definida. 

ILLEGAL  TABLE  VALUE.  En  el  comando  TABLE  el  final  de  la 
tabla  es  más  pequeño  que  el  principio. 

TSAVE  WITHOUT  TABLE.  Se  tendría  que  memorizar  una  tabla 
que  aún  no  se  ha  definido. 
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formas  de  onda  (WAVE),  el  tiempo  de  ataque,  decaimiento  y  HOLD: 
así  como  la  intensidad  de  volumen.  Si  se  elige  como  forma  de  onda 
cuadrada,  entonces  se  tiene  que  dar  la  relación  de  teclas  con  PLUS. 
Después  puede  seguir  cualquier  número  de  notas  (SOUND).  El 
número  de  notas  se  limita  por  la  duración  de  las  tablas  definidas.  Por 
cada  nota  se  necesitan  cuatro  bytes.  Para  la  unión  de  la  tabla  de 
música  tiene  que  haber  por  lo  menos  uno  de  los  siguientes  comandos: 
SWITCH,  RESTART.  POINTER  X:  si  no  es  así.  la  rutina  de  IRQ 
entra  en  una  zona  indefinida.  La  consecuencia  puede  ser  un  bloqueo 
del  ordenador. 

Ejemplo  de  cómo  utilizar  música  en  otros  programas  (aqui 
“JUEGO”): 


Para  todas  las  voces  tienen  que  producirse  tablas  indepenc 
incluso  cuando  no  se  desea  utilizar  alguna  voz.  En  este  último 
tabla  podría  tener  el  siguiente  aspecto: 

10  TABLE  3:52000,52006: RE M  DEFINICION  DE  TABLA 
20  VOICE  3:REM  ELEGIR  LA  VOZ  3 
30  SWITCH:  REM  CONECTAR  LA  VOZ  3 
40  TSAVE  3,“TAB  1”8:REM  MEMORIZAR  TABLA 
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387  data 

388  DATA 

389  DATA 

390  DATA 

392  DATA 

393  DATA 

394  DATA 

395  DATA 

396  DATA 

398  DATA 

400  DATA 

401  DATA 

402  DATA 

403  DATA 

404  DATA 

405  DATA 

406  DATA 

407  DATA 

408  DATA 

409  DATA 

410  DATA 

411  DATA 

412  DATA 

413  DATA 

414  DATA 

415  DATA 

416  DATA 

417  DATA 

418  DATA 

419  DATA 

420  DATA 

422  DATA 

423  DATA 

424  DATA 

425  DATA 

426  DATA 

427  DATA 

428  DATA 

429  DATA 

430  DATA 

431  DATA 


124 

219 

32 

203 

206 

211 

26 

149 

76 


,8 

,  125 
.234 
.255 


216 

177 

12 

247 

148 

187 

92 

253 

166 

173 

22 

251 

148 

92 

237 

226 


PROGRAMA:  GEN. I NT  LISTADO  2 

1  A=49 1 52  .33 

2  B=49601  .230 

3  FOR I =ATOB : V=0 : G0SUB6 : S=S+V : POKE I ,  .117 
V : NE X  T  s  RE ADT : I FS<  >TTHENPR I  NT  "  C RVSON 

3 ERROR  EN  DATAS! 

5  END  .7 

6  READHS:G0SUB7: V=V*16: H*=MID$ <H$ ,2  .206 

7  X=ASC (H$) : V=V+X+48* (X<64) +55*  <X>6  .63 
4 ) : RETURN 

100  DATA  78 , A9 , 46 , A2 , C0 , 8D ,14, 03 , 8E  .234 

101  DATA  15,03, A2, 02, 20,67, C1 ,CA, 10  .111 

102  DATA  FA , A2 , 02 , A9 , 01 , 9D , 33, C0 , CA  .220 

103  DATA  1 0 , FA , 58 , 60 ,4C,B1 , C 1 , A2 , EA  .115 

104  DATA  D0 , DF , 00 , 00 , 00 , 00 , 00 , 00 , 00  .174 

105  DATA  00,00,00,00,00,00,00,00,00  .253 

106  DATA  00, D4, 07, D4 ,0E,D4 ,00,00,00  .106 

107  DATA  00 , 00 , 00 , 00 , 20 , 20 , 20 , A5 , B0  .245 

108  DATA  48, A5,B1 , 48 , A5 , B2 , 48 , A5,B3  .22 

109  DATA  48, A9 , 03, 8D, 32,00, CE, 32, 00  .145 

110  DATA  1 0 , 0F , 68 , 85 , B3 , 68 , 85 , B2 , 68  .210 

111  DATA  85, B1 ,68,85, B0, 40,31 ,EA,AE  .69 

112  DATA  32 , 00 , BD , 33 , 00 , F0 , E4 , BD , 30  .16 

113  DATA  00, F0, 15, DE, 30, 00, D0, DA, 20  .199 

114  DATA  82,01 ,AE, 32,00, A0 , 04, BD, 43  .238 

115  DATA  00,91 ,B2, 40, 57,00, BD,3F, 00  .23 

116  DATA  F0, 06, DE, 3F, 00, 40, 57, 00, 20  .228 

117  DATA  82,01 ,20, 9F,C1 ,09,00, F0, 1F  .163 
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520  H0LD13.B 
530  PULS  2000 
540  FILTER  2020 
550  RESONANZ  15,0,0,0 
560  WAVE3 ,0,0 
570  V0LUME15, 0,0,0 
580  SOUND  H (D— 1 ) ,N4 , P4 
590  SOUND  DH (O) , N4 , P4 
600  SOUND  H (0—1 ) , N4 , P4 
610  SOUND  DH (O) ,N4 , P4 
620  SOUND  H (0-1 ) ,N4,P4 
630  SOUND  A (O) , N4 ,P4 
640  SOUND  A(0) ,N2,P2 
650  SOUND  H (0—1 ) , N4 , P4 
660  SOUND  A ( O ) , N4 , P4 
670  SOUND  H (O— 1 ) , N4 , P4 
680  SOUND  A ( O ) , N4 , P4 
690  SOUND  H(0-1),N4,P4 
700  SOUND  GH  ÍO) ,N4 , P4 
710  SOUND  GH(0),N2,P2 
720  SOUND  H (0—1 ) , N4 , P4 
730  SOUND  GH(0),N4,P4 
740  SOUND  GH (O) , N4 ,P4 
750  SOUND  FH(O)  ,N4*1.5,I 
760  SOUND  E(0),N8,P8 
770  SOUND  E (0) ,N4 ,P4 
780  SOUND  DH (O) ,N4 , P4 
790  SOUND  DHÍO)  ,N4*1.5,F 
800  SOUND  DH (O) , N8 , PS 
810  SOUND  ECO) ,N4,P4 
020  SOUND  E(0),N4,P4 
830  SOUND  DH(0>  ,N4*1.5,f 
840  SOUND  CH (O) ,NB,P8 
850  SOUND  CH (O) ,N4 ,P4 
860  SOUND  H  <0—1 ) , N4 , P4 
870  SOUND  H (0—1 ) , N4 , P4 
880  SOUND  H (0—1 ) , N4 ,P4 
890  SOUND  DH (O) , N4 , P4 
900  SOUND  H (0—1 ) ,N4 , P4 
910  SOUND  DH (O) , N4 , P4 
920  SOUND  H (O— 1 ) ,N4 ,P4 
930  SOUND  A (O) ,N2, P2 
940  SOUND  A (O) ,N2, P2 
950  SOUND  H (O— 1 ) ,N4 ,P4 
960  SOUND  A (O) ,N4 , P4 
970  SOUND  H (0—1 ) , N4 , P4 
980  SOUND  A(0),N4,P4 
990  SOUND  H(0-1),N4,P4 
1000  SOUND  GH(0),N4,P4 
1010  SOUND  GH (O) ,N2,P2 
1020  SOUND  H (0-1 ) ,N4 , P4 
1030  SOUND  GH (O) , N4 , P4 
1040  SOUND  GH (O) ,N4 , P4 
1050  SOUND  FH(O) ,N4*1.5, 
1060  SOUND  E (O) , N8, PB 
1070  SOUND  DH(0),N4,P4 
1080  SOUND  FH(0),N4,P4 
1090  SOUND  FH(O) ,N4*1.5, 
1100  SOUND  DH (O) ,N8, P8 
1110  SOUND  CH(0),N4,P4 
1120  SOUND  E (O) , N4 , P4 
1130  SOUND  E (O) ,N4 ,P4 
1140  SOUND  CH (O) ,N4 , P4 
1150  SOUND  H (0-1 ) , N4 , P4 
1160  PAUSE  Pl*2+P4*2 
1170  SOUND  H (O) ,N4,P4 
1180  SOUND  GH (O) , N2 ,P2 
1190  SOUND  CH ( 0+ 1 ) , N4 , P4 
1200  SOUND  H ( O ) , N4 , P4 
1210  SOUND  GH (O) ,N2,P2 
1220  PAUSE  P4*2 
1230  SOUND  E(0+1) ,N4*1.E 
1240  SOUND  DH (0+1 ) ,N8 , PE 
1250  SOUND  CH (0+1 ) ,N4 , P4 
1260  SOUND  H ( O ) , N4 , P4 
1270  SOUND  A (O) , N4 , P4 
1280  SOUND  FH(0),N2,P2 
1290  PAUSE  P4*2 


3  SOUND  H(0)  ,N4,t 
3  SOUND  GH (O) , N2 
3  SOUND  CH  (0+1 )  ,1 
3  SOUND  H(0)  ,N4,F 
3  SOUND  GH  <  O ) ,  N2 
3  PAUSE  P4*2 
3  SOUND  E  (0+1 )  ,N< 
a  SOUND  DH  (0+1 )  ,( 
B  SOUND  CH  <0+1 )  ,  f 
a  SOUND  H  (O)  ,N4,F 
a  SOUND  A (O) , N4 , F 
a  SOUND  FH (O) , N2 , 
a  SOUND  FH (O) ,N4 , 
3  SOUND  A (O) , N4*j 
3  SOUND  GH (O) ,N8 , 
3  SOUND  FH (O) , N4 , 
3  SOUND  GH(0),N4, 
3  SOUND  A (O) ,N4,F 
3  SOUND  H (O) , N4 , F 
3  SOUND  CH (0+1 ) ,  F 
3  PAUSE  P8*2 
a  SOUND  CH (0+1 ) ,f 
3  SOUND  H  ( O—  1 )  ,  N' 
3  SOUND  H  ( O—  1 )  ,  N¿ 
3  SOUND  CH (O) ,N4, 
3  SOUND  DH (O) ,N4, 
3  SOUND  E(0) ,N4,F 
3  PAUSE  P4*2 
3  SOUND  E  (0+1 )  ,  N¿ 
)  SOUND  E  (0+1 )  ,N£ 
3  SOUND  DH (0+1 ) ,f 
3  SOUND  DH (0+1 ) ,F 
3  SOUND  CH (0+1 ) ,F 
3  SOUND  CH (0+1 > ,  F 
3  SOUND  H (O) , N4 , F 
J  SOUND  H (O) ,N4,F 
3  SOUND  CHíO+l) ,F 
1  SOUND  CH (0+1 > ,F 
)  SOUND  H (O) , N4 , F 
)  SOUND  H  (O)  , N4  ,  F 
)  SOUND  A (O) ,N4,F 
)  SOUND  A (O) ,N4,F 
)  SOUND  GH (O) ,N4, 
)  SOUND  GH (O) ,N4 , 
)  SOUND  E (0+1 ) ,N4 
)  SOUND  E(0+1),NE 
)  SOUND  DH ( 0+ 1 )  ,  |\ 
)  SOUND  DH (0+1 ) ,F 
3  SOUND  CH ( 0+ 1 )  ,  h 
3  SOUND  CH  <  0+ 1 )  , h 
)  SOUND  H  (O)  ,  N4  ,  F 
1  SOUND  H  <  O )  , N8 , F 
)  SOUND  H (O) ,N8,F 


3  SOUND  E  ( O )  ,  N' 
3  PAUSE  P4*2 
3  PAUSE  P4*2 
3  RESTART 


2090  PR I NT ” C  2CRSRD  3  CONECTAR ; CRVSQN3 
IRQ0NCRVS0FF3 " ; 

2095  PRINT " C2SPC3 DESCONECTAR: CRVSON 
3 1 RQDFF  C  RVSOFF  3 " 
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2100  PR I  NT  "  E 2CRSRD 3  IRQONE2CRSRD3  "  .  10B 

2105  PR I NT " I RQOFF  :  PQKE54272+24 , 0 C 6C  .35 
RSRU3" 


PROGRAMAS  DEM02 


LISTADO  4 


100  REM  MUSIK  BASIC  —  DEM02 

110  PR I NT " C CLR 3 MUS I K— BAS I C  V1.0C3SP 

CIDEMO  2" 

120  PRI NT "PREPARANDO  TABLA  MUSICA" 
130  : 

140  CLEAR 

150  TABLE1, 49586 ,50677 
160  TABLE2, 50700, 5 1879 
170  TABLE3, 5 1700, 53247 

170  V0ICE2 

200  ENVELOPE  0,0 

210  HOLD  11,3 

220  PULS  2000 

230  WAVE3 ,1,0 

240  VOLUME11, 1,0,0 

250  RESONANZ  15,0,0,1 

260  FILTER  2047 

270  PAUSE255 

280  P2=P0INT(2> 

290  POR I =2001 TO4650STEP20 
300  SOUND 1,0,0 


156 
4 

36 

142 

168 

211 

81 

157 
21 
107 


310  NEXT 

320  FOR I =4650TO200 1 STEP-20 

330  SOUND 1,0,0 

340  NEXT 

350  PO INTER  P2 

360  : 

370  VOICE1 
380  ENVELOPE  1,0 
370  HOLD 15,1 
400  WAVE4 ,0,0 
410  PAUSE 100 
420  Pl=POINT < 1 ) 

430  SOUND 1200, 2, 2 
440  SOUND 1300, 2, 2 
450  PO INTER  P1 
460  : 

470  V0ICE3 
480  ENVELOPE 1,0 
470  HOLD 15,1 
500  WAVE4 ,0,0 
510  P3=P0INT (3) 

520  SOUND 1000, 3, 3 
530  SOUND  700,3,3 
540  PO INTER  P3 
550  s 

560  PRI NT " E 3CRSRD 3 CONECTAR : C RVSON 3 I 
RQON C  RVSOFF  3 " ; 

565  PR  I  NT  "  C  4SPC  3  DESCONECTAR :  C  RVSON  3 
IRQOFFC RVSOFF 3" 

570  PRI NT * C 4CRSRD 3 I RQON C 2CRSRD 3  » 

575  PR I NT " I RQQFF : P0KE54272+24 ,0C6CR 
SRU3" 


65 

43 

137 

75 

197 

81 

73 

5 

207 

157 

235 

35 

207 

251 

9 

181 

205 

105 


143 

246 

218 

164 

40 


.  170 

,35 
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SERVICIOS  INFORMATICOS 


SOFTWARE  DISPONIBLE 
PARA  EL  C0MM0D0RE 128 


•  Contabilidad 

•  Estimación  objetiva  singular 
(ingresos  y  gastos) 

•  Stocks  /  facturación 

•  Gestión  comercial  f fk 

•  Video  clubs  J 

•  Agenda  \l  $\ 

(emite  recibos  y  etiquetas) 

•  Gestión  comercial  integrada  ^ 
(contabilidad  y  facturación)  ^ 


CARACTERISTICAS  GENERALES 

•  Ficheros  dimensionables  por  el  usuario 

•  Pueden  trabajar  con  cualquiera  délas 
unidades  1541/1570/1571 

•  Posibilidad  de  trabajar  con  varios  disquettes 
•Formato  de  pantalla  en  80  columnas 

(pantallas  interactivas) 

^  PARA  MAS  DETALLES.  SOLICITENOS  INFORMACION 

Jaime  1,145  -Tel.(93)  5937501  ■  Mollet  del  Valles 


Por  Frank  Riemenschneider 


La  unidad  1541  es  un  instrumento 
muy  potente.  De  forma  sencilla,  la 
unidad  quita  el  trabajo  básico  de 
administración  de  datos  al  pro¬ 
gramador  o  usuario.  Debido  a  cualquier 
manejo  descuidado  de  los  comandos  de 
disco,  se  pueden  perder  valiosos  datos.  Si  se 
quieren  agotar  las  posibilidades  de  progra¬ 
mación  sin  perder  datos,  es  necesario  un 
programa  seguro  de  ayuda. 

El  Floppymaster  pone  a  disposición  del 
usuario  todo  lo  necesario  para  la  manipula¬ 
ción  de  los  datos  del  disco.  La  estructura  de 
esta  magnífica  herramienta  tampoco  es  un 
tabú.  El  programa  arranca  ejecutando  pro¬ 
gramas  de  código  máquina  en  la  RAM  de  la 
unidad  de  disco.  Las  intervenciones  en  el 
DOS  se  llevan  a  cabo  directamente  en  la  pan¬ 
talla  de  texto. 

Este  programa  crece  con  las  capacidades 
del  usuario.  Un  arsenal  de  comandos  avan¬ 
zados  está  a  disposición  del  usuario  de  esta 
herramienta.  El  programa  maestro  lleva  a 
cabo  tres  funciones  o  tareas  principales: 

—Monitor  de  diskettes. 

—Editor  de  diskettes. 

—Doctor  de  disco. 

Todo  en  uno  y  con  capacidad  para  traba¬ 
jar  en  todos  los  sectores  del  disco:  bloques  de 
datos,  directorio.  BAM.  DOS.  buffer  y 
RAM. 

El  menú  principal  presenta  doce  opciones 
del  programa.  La  opción  se  selecciona  con  el 
cursor  y  se  confirma  con  RETl'RN.  Si  apa¬ 
rece  un  error  en  el  floppy.  saldrá  el  corres¬ 
pondiente  mensaje  de  error.  Debe  pulsarse  una  tecla  cualquiera,  antes 
de  saltar  al  menú  principal. 

La  estructura  de  la  pantalla  de  datos  es  igual  en  todas  las  opciones. 
Las  tres  primeras  líneas  de  la  pantalla  es  la  zona  de  mensajes.  Aquí  se 
van  a  indicar  todas  las  informaciones  importantes  para  el  usuario.  En 
la  parte  central,  la  zona  de  datos.  Aparecen  todos  los  datos  leidos  del 
diskette.  Por  último,  las  tres  líneas  inferiores  muestran  los  comandos 
que  hay  a  disposición  del  usuario. 

Editor  de  sectores. 

Con  esta  opción  se  pueden  editar  bloques  sueltos  de  un  diskette.  Al 
confirmar  la  opción,  se  leerá  el  bloque  1 8,0  y  se  mostrará  en  la  panta¬ 
lla.  En  la  zona  de  mensajes  aparecerá  la  pista  y  sector  en  el  que  está 
trabajando  el  programa.  En  la  zona  de  datos  aparece  solamente  la 
mitad  del  bloque,  128  bytes.  Los  datos  pue¬ 
den  ser  datos  en  forma  decimal,  hexadeci- 
mal  o  ASCII.  En  el  último  renglón  aparece  el 
estado  del  canal  de  errores  del  disco.  Los 
comandos  se  pueden  elegir  pulsando  la  tecla 
correspondiente.  Existen  dos  modos,  el 


modo  comando  y  el  modo  cambio.  Para 
pasar  del  modo  cambio  al  modo  comando, 
pulsar  la  letra  “a”.  Y  para  volver  al  menú,  la 
tecla  flecha  arriba, 
a)  Modo  comando: 

A  Salta  al  modo  cambio. 

C  Copiar  el  bloque.  Al  entrar  la  pista  y  el 
sector,  se  elige  el  bloque  en  el  que  se  va  a 

F  Encontrar:  encuentra  el  próximo  bloque 
cuyo  contenido  es  distinto  de  cero.  Se  lee  el 
bloque  siguiente  en  el  que  al  menos  hay  un 
byte  ocupado.  Si  se  produce  un  error  de  lec¬ 
tura  se  coloca  el  primer  byte  a  75  y  el  resto  a 
1.  Estos  bloques  serán  también  tratados 
como  bloques  libres. 

H  Hardcopy:  imprime  un  volcado  de  pan¬ 
talla  de  datos.  Si  no  está  conectada  la  impre- 
ignorará  la  orden. 

L  Ultimo:  busca  el  último  bloque  legal  en 
una  estructura  de  bloques  para  lo  cual  se 
parte  del  bloque  actual. 

N  Próximo:  se  lee  el  próximo  bloque,  que 
se  indica  en  el  campo  Input-sector.  En  caso 
de  que  no  exista  un  bloque  lógico,  se  pre¬ 
senta  un  mensaje  de  error. 

R  Leer:  el  bloque  indicado  se  lee  de  nuevo. 
Esto  sirve  en  caso  de  equivocación  a  la  hora 
de  cambiar  datos  y  tener  que  comenzar  de 

S  Cambio:  se  cambia  la  mitad  del  bloque 
editado. 

V  Adelante:  se  lee  el  próximo  bloque. 

W  Escribir:  el  bloque  actual  se  escribe 
sobre  el  diskette. 

Z  Atrás:  se  lee  el  bloque  precedente. 

Vuelta  al  menú  principal. 

#  Presentación  decimal. 

$  Pasar  a  emisión  hexadecimal. 

1-9  fijar  el  bloque  en  el  campo  Input-Sector. 
b)  Modo  cambio: 

El  primer  byte  de  la  zona  de  datos  aparece  en  inverso.  Con 
las  teclas  del  cursor  este  campo  puede  ser  movido  en  la  pantalla. 
Si  se  llega  al  final  de  una  mitad  de  pantalla,  se  continúa  con  la 
otra.  Todas  las  opciones  se  refieren  al  byte  colocado  en  in- 

INST:  Insertar  un  byte  libre  en  la  posición  del  cursor.  Todos  los 
demás  bytes  serán  corridos  un  cursor  a  la  derecha.  El  último  byte  del 
bloque  desaparece. 

DEL:  Borrar  el  byte  situado  ante  el  cursor.  Todos  los  bytes  se  move¬ 
rán  hacia  la  izquierda  y  el  último  quedará 
libre. 

Z-cero:  Cubrir  todos  los  bytes  a  partir  de 
la  posición  del  cursor  con  ceros. 

#  Cambiar  a  presentación  decimal. 

S  Presentación  hexadecimal. 


Este  programa  es 
algo  más  que  una 
ampliación  de 
comandos  para  la 
unidad  de  discos. 
Aquí  se  presenta  la 
mejor  herramienta  de 
disco  que  hemos 
tenido  hasta  ahora  en 
nuestra  revista.  Tanto 
si  es  BAM  o  DOS 
como  si  es  RAM  o 
ROM,  el  floppy  va  a 
manejarse  de  la 
manera  más  sencilla 
para  obtener  los 
resultados  más 
complejos. 


C-64 
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Editor  de  directorio. 


la  zona  de  mensajes  aparece  el  número  del  fichero  en  edición,  que 
será  señalado  también  en  la  zona  de  datos.  En  esa  zona  de  datos 
aparecerán  ocho  nombres  de  ficheros  con  su  número  de  bloques,  tipo 
de  fichero  y  el  bloque  de  comienzo. 

a)  Modo  de  comandos: 

A  Cambiar:  Pasa  a  los  comandos  de  la  parte  inferior. 

D  Los  ficheros  borrados  se  hacen  desaparecer  del  directorio.  Los 
ficheros  tipo  “DEL”  desaparecen  para  siempre,  no  como  el  comando 
SCRATCH. 


4)  Cambiar  el  bloque  de  comienzo:  Se  puede  presentar  todo  tipo  de 
combinación  pista-sector,  que  tenga  sentido. 

INST  Se  insertará  un  fichero  en  el  lugar  donde  se  encuentre  la 

DEL  El  fichero  indicado  por  la  flecha  desaparece  del  directorio. 
U  El  fichero  indicado  es  protegido  contra  el  borrado  del  comando 
SCRATCH.  Aparece  un  “menor  que”  (<),  tras  el  tipo  de  fichero. 

F  Se  desprotege  un  fichero  anteriormente  protegido  con  “U”. 

T  Presenta  la  forma  decimal  de  un  fichero  existente  en  la  memoria 
del  C-64. 

f  Salto  al  modo  comando. 


H  Hardcopy:  volcado  de  la  pantalla  actual  de  datos. 

R  Se  vuelve  a  leer  el  directorio.  Es  importante  en  caso  de  error. 

S  se  ordenan  los  ficheros  del  directorio  en  orden  alfabético. 

W  El  directorio  actual  se  graba  de  nuevo  en  el  disco. 

f  Salto  al  menú  principal. 

1-9  Se  puede  determinar  el  número  de  fichero  a  editar. 

b)  Modo  cambio: 

En  este  modo  aparece  una  flecha  ante  el  primer  fichero.  Esta  flecha 
se  puede  mover  con  las  teclas  del  cursor:  Cuando  se  llega  al  final  de  la 
pantalla  se  mueve  todo  el  directorio.  Todos  los  comandos  se  refieren 
al  fichero  que  se  indica  mediante  la  flecha. 

RETURN  se  pueden  cambiar  uno  tras  otro  los  nombres  de  los 
ficheros,  número  de  bloques,  tipo  y  bloque  de  comienzo. 

1)  Cambiar  el  nombre  del  fichero:  Se  puede  cambiar  un  fichero  con 
cualquier  nombre  hasta  16  caracteres. 

2)  Cambiar  el  número  de  bloques:  Puede  especificarse  cualquier 
número  de  bloques  para  un  fichero.  Incluso  números  por  encima  de 
664,  ya  que  la  función  de  esto  es  simplemente  óptica  dentro  del 
directorio. 

3)  Cambiar  el  tipo  de  fichero:  esta  opción  acepta  todos  los  tipos  de 
ficheros  existentes. 


BAM  no  se  actualiza  cuando  se  pasan  los  datos  del  bloque  de  escri¬ 
tura  al  diskette.  En  la  pantalla  aparecen  unas  coordenadas.  El  eje 
superior  representa  los  sectores  y  el  izquierdo  las  pistas.  No  es  posible 
representar  todo  el  BAM  a  la  vez.  por  lo  que  aparece-rán  de  modo 
alternativo  las  pistas  1-18  ó  19-35.  Cada  bloque  del  disco  se  repre¬ 
senta  por  un  asterisco  o  un  punto.  El  asterisco  representa  un  bloque 
libre  y  el  punto,  ocupado.  La  pista  18  aparece  resaltada  respecto  al 
resto  de  los  664  bloques, 
a)  Modo  comandos: 

A  Pasar  al  modo  de  modificaciones. 

H  Volcado  de  pantalla  a  impresora. 

R  Volver  a  leer  el  BAM. 

S  Se  cambia  la  representación  de  una  mitad  del  BAM  a  otra. 

W  Se  escribe  el  BAM  editado,  en  el  disco. 

f  Salto  al  menú  principal. 

b)  Modo  cambio: 


COMMODORE  WORLD 


en  la  que  se  encuentra  el  cursor,  se  indica  come 


Editor  de  BUFFER. 

Junto  a  las  funciones  de  transferencia  de  datos  entre  la  unidad  de 
disco  y  el  ordenador,  el  BUFFER  tiene  una  segunda  función;  se 
pueden  escribir  programas  en  lenguaje  máquina  y  hacerlos  funcionar 
en  la  unidad.  Por  ejemplo,  las  pistas  36  a  40  pueden  ser  de  utilidad,  se 
puede  escribir  entre  pistas  e  incluso  formatear  el  diskette  con  un 
formato  nuevo.  Con  el  Floppymaster  se  pueden  controlar  los  cinco 
BUFFER  de  la  unidad. 


A  Pasar  a  modo  cambio. 

C  Copiar  el  BUFFER.  Se  copiará  el  actual  y  se  determinará  al 
mismo  tiempo  dónde  se  va  a  copiar. 

E  Ejecuta  un  programa  en  código  máquina,  grabado  previamente 
en  la  unidad. 

H  Efectúa  un  volcado  de  pantalla  en  la  impresora. 

R  Vuelve  a  leer  el  BUFFER. 

W  Graba  el  BUFFER  en  edición. 

S  Se  modifica  la  mitad  del  bloque  indicado. 

V  Se  lee  el  BUFFER  siguiente, 
f  Salto  al  menú  principal. 

#  Pasa  a  edición  decimal. 

$  Edición  hexadecimal. 

0-4  Fijar  en  el  campo  del  Input-Buffer  el  BUFFER  que  tiene  que 


El  primer  byte  de  la  zona  de  datos  aparece  en  inverso.  Con  el  cursor 
se  puede  mover  este  campo  sobre  la  pantalla. 

INST  Insertar  un  byte  libre  en  la  posición  del  cursor. 

DEL  Borra  el  byte  colocado  ante  el  cursor. 

Z  Se  llenan  de  ceros  todos  los  bytes  a  partir  de  la  posición  del 

#  Pasar  a  presentación  decimal. 

$  Presentación  hexadecimal. 

“Pasar  a  modo  ASCII, 
f  Retroceso  al  modo  de  comandos. 

Editor  del  DOS. 

La  unidad  de  disco  sólo  posee  una  RAM  de  2K,  y  una  memoria 
ROM  de  8K,  el  DOS.  No  se  puede  hacer  ningún  cambio  en  el 
DOS  directamente,  pero  sí  se  puede  copiar  parte  en  la  RAM,  hacer 
los  cambios,  y  después  hacerlo  funcionar  en  el  floppy  como  rutina 
propia.  El  floppy  posee  otros  dos  chips  de  entrada  salida  que  toman  el 
mando  de  escritura  y  lectura.  El  bus  de  direcciones  está  situado  en 
6144-6159  (S1800-S180F). 
a)  Modo  de  comandos: 

A  Salto  al  modo  cambio. 

C  Copia  la  zona  de  direcciones. 

E  Ejecutar  un  programa  grabado  previamente  en  el  floppy. 

R  Leer  de  nuevo  la  zona  de  direcciones. 

W  Escribir  de  nuevo  la  zona  de  direcciones  de  la  RAM. 

S  Se  cambia  la  mitad  del  bloque  señalada. 

V  Se  lee  la  zona  de  direcciones  que  está  delante  de  la  actual. 

Z  Se  lee  la  zona  precedente, 
f  Retroceso  al  menú  principal. 

#  Cambio  a  decimal. 

$  Paso  a  hexadecimal. 

“  Cambio  a  presentación  ASCII. 

0-9  Colocar  las  direcciones  de  comienzo  de  zona.  Están  permitidos 
valores  desde  0  a  1792  y  49152  a  65280. 
b)  Modo  cambio: 

El  primer  byte  de  la  zona  de  datos  aparece  en  inverso. 

INST  Insertar  byte  libre  en  la  posición  del  cursor. 


#  Pasar  a  representación  decimal. 

$  Cambio  a  hexadecimal. 

“  paso  a  ASCII. 

¡¡ATENCION!!  Si  se  escribe  en  el  STACK  de  la  unidad  de  disco,  se 
bloqueará  y  quedará  bloqueado  también  el  Floppymaster.  El  STACK 
se  encuentra  entre  256  y  325. 


Editor  de  pistas. 

Esta  parte  del  programa  no  sirve  para  modificar  bytes,  simple¬ 
mente  proporciona  una  vista  general  del  diskette.  Tras  leerse  la 
pista,  se  representan  los  seis  primeros  bytes  de  cada  sector.  Si  se  busca 
un  determinado  bloque,  se  consigue  más  rápido  con  el  editor  de  pistas 
que  uno  a  uno.  Tras  la  elección  del  menú,  aparece  todavía  vacía  la  zona 
de  datos.  En  la  zona  de  edición  sólo  aparece  un  comando  de  memoria, 
“pista-input”,  en  el  que  se  fija  la  pista  que  debe  ser  leída.  En  la  parte 
izquierda  de  la  pantalla  se  encuentran  los  números  de  los  sectores,  los 
cuales  tienen  que  estar  en  la  zona  de  datos.  Si  durante  la  lectura  de 
una  pista  aparece  un  error, 

no  será  interrumpido  el  Lista  de  rutinas  utilizadas  en 
proceso  de  lectura.  Apa-  ,  D0§  en  este  programa: 

recerá  el  mensaje  de  error,  v  ° 

debiéndose  pulsar  una  te-  76,65,3,165,18,133,22, 

c  a.  A  continuación  seguirá  j  6’5)  j  9, 1 33,23, 169,35, 133, 
el  proceso  de  lectura.  Se  24,169,10,133,25,32,39 

puede  reparar  el  disco  de  245,32,86,245,162,0,202, 

la  siguiente  forma:  208,253,173,12,28,41,31 

-Leer  la  pista  sobre  la  9,192,141,12,28,169,255, 

cual  se  encuentra  e  blo-  141,3,28,169,85,141,1, 

que  ilegible.  Este  bloque  28,80,80,254,184,80,254, 

será  tratado  internamente  j  84;80;254, 1 84,32,0,254, 

como  255  bytes  libres.  76,158,253,169,234,141,0, 

-Formatear  una  pista  3,141,1,3,141,2,3, 

(D-  169,35,133,6,169,10,133, 

Volver  a  escribir  los  7,169,224,133,0,165,0, 

datos  (w>-  48,252,96, 

C  Copiar  la  pista. 

F  Formatear  una  pista.  _ 

H  Volcado  de  pantalla. 

V  Leer  la  pista  siguiente. 

W  Escribir  la  pista  ac¬ 
tual. 

f  Salto  al  menú  principal. 

#  Pasar  a  emisión  decimal. 

$  Pasar  a  hexadecimal. 

“  Modo  ASCII. 

1-9  Fija  la  pista  que  debe  ser  leída. 

Enviar  comandos. 


emplearse  los  comandos  USER: 

“UC”/“U3”  comienza  un  programa  en  lenguaje  máquina  a  partir 
de  la  dirección  $0500  (BUFFER  2,  byte  0). 

“UD”/“U4”  comienza  programa  a  partir  de  $0503  (BUFFER  2, 
byte  3). 

“UE"/“U5”  comienza  programa  a  partir  de  $0506  (BUFFER  2, 
byte  6). 

“UF”/“U6”  comienza  programa  a  partir  de  $0509  (BUFFER  2, 


Lista  de  rutinas  utilizadas  en 
el  DOS  en  este  programa: 

76,65,3,165,18,133,22, 

165.19.133.23.169.35.133, 
24,169,10,133,25,32,39 
245,32,86,245,162,0,202, 
208,253,173,12,28,41,31 
9,192,141,12,28,169,255, 
141,3,28,169,85,141,1, 
28,80,80,254,184,80,254, 
184,80,254,184,32,0,254, 
76,158,253,169,234,141,0, 
3,141,1,3,141,2,3, 

169.35.133.6.169.10.133, 
7,169,224,133,0,165,0, 
48,252,96, 


a  posición  del  cursor,  se  llenan  de  ci 


“UF”/“U6”  comienza  programa  a  partir  de  $0509  (BUFFER  2, 
byte  9). 

“UG”/“U7”  comienza  programa  a  partir  de  $050C  (BUFFER  2. 
byte  12). 

“UH”/“U8”  comienza  programa  a  partir  de  $050F  (BUFFER  2, 
byte). 

Con  Floppymaster  se  pueden  escribir  programas  en  código 
máquina  en  el  BUFFER,  y  construir  una  tabla  de  saltos  al  comienzo 
del  BUFFER  2.  Los  programas  se  pueden  realizar  sin  abandonar  el 
propio  Floppymaster.  Pueden  iniciarse  programas  en  el  floppy,  por 
ejemplo  con  “U4  valor  uno  y  valor  dos”.  Para  esto  es  necesario 
saber  que  la  cadena  del  comando  se  coloca  en  la  RAM  de  la  unidad 
de  disco,  a  partir  de  la  dirección  $0200.  “U1”/“U9”  comienza  un 
programa  cuyas  direcciones  de  comienzo  estén  memorizadas  en  la 
RAM  del  floppy,  en  $0065  (byte  bajo)  y  $0066  (byte  alto). 

“UJ"/“U”:  salta  al  vector  de  RESET  del  floppy  ($EAAO). 
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Si  se  efectuase  un  cambio  de  diskettes,  se  tendría  que  inicializar 
primeramente  un  nuevo  diskette.  Por  motivos  de  seguridad,  antes 
ce  cada  salto  en  el  programa  EDIT,  el  Floppymaster  comprueba  si  el 
B  AM  memorizado  sobre  el  diskette  concuerda  con  el  que  se  encuen¬ 
tra  en  memoria.  Si  no  es  este  el  caso,  se  da  el  mensaje  de  error:  “ID 
MISMATCH”. 

JSR  SF527:  recoger  el  header  del  bloque. 

JSR  SF556  :  SYNC  esperar. 

JSR  SFEOO  :  pasar  a  la  lectura. 

JSR  SFD9E  :  salto  al  bucle  de  trabajo. 

El  Floppymaster  es  compatible  con  el  SPEED  DOS,  con  ello  este 
programa  establece  un  récord  de  velocidad.  Para  estudiar  el  pro¬ 
grama  es  aconsejable  utilizar  un  disco  de  pruebas. 

Programa  BASIC  y  código  máquina. 

El  Floppymaster  se  compone  de  un  programa  BASIC  y  otro 
en  código  máquina.  Para  crear  el  código  máquina  se  han  necesi¬ 
tado  dos  partes  con  sus  respectivos  cargadores.  Sigue  estas  instruc¬ 
ciones  para  poder  hacerlo  funcionar: 

1 )  Teclea  y  graba  los  tres  listados.  Los  dos  primeros  son  cargadores 
Basic  y  el  último  el  programa  Basic. 

2)  Ejecuta  el  primer  programa;  te  dirá  que  cargues  el  segundo. 

3)  Carga  y  ejecuta  el  segundo  programa.  Te  dirá  que  “grabes  el 
programa  completo”. 

4)  Graba  el  programa  Basic  completo  haciendo  los  siguientes 
POKEs: 

POKE  43,27:  POKE  44,113 
POKE  45,0:  POKE  46,160 
SAVE  “FLOPPYMASTER.  COM” 

Ahora  está  todo  listo  para  funcionar.  Cuando  quieras  utilizar  el 
programa  Floppymaster  haz  lo  siguiente: 

1)  Carga  el  código  máquina  con  LOAD  “FLOPPYMASTER”, 8,1 
2)  Carga  el  programa  Basic  y  ejecútalo  ■ 

Otros  comandos. 


CAMBIO  DE  UNIDAD  El  programa  siempre  trabaja  con  la  direc¬ 
ción  ocho.  Si  se  desea  utilizar  otra  unidad,  es  necesario  utilizar  esta 
opción  para  cambiar  su  número  de  periférico. 

ELECCION  DE  COLORES  Permite  cambiar  los  colores  del 
fondo,  borde  y  texto  de  pantalla.  F7  permite  volver  al  menú. 

FIN  DE  PROGRAMA  Se  provoca  un  RESET. 

Ejemplo  de  empleo  del  comando  “E” 

El  comando  “E”  permite  ejecutar  algunos  programas  en  lenguaje 
máquina.  Coloca  un  pequeño  programa  de  ejemplo  que  te  permita 
observar  las  posibilidades  que  abre  este  comando.  Debe  producirse 
un  error  23  (READ  ERROR)  en  la  pista  35,  sector  10.  Este  error  se 
empleaba  antes  como  protección  contra  copia.  Se  trata  de  un  fallo  de 
suma  control.  La  suma  de  control  de  final  de  bloque,  no  tiene  nada 
que  ver  con  el  contenido  del  mismo.  Para  producir  tal  error,  basta 
con  escribir  datos  falsos  dentro  del  bloque.  Esto  no  funciona  regu- 
larmanete  con  el  comando  normal,  ya  que  el  DOS  actualiza  siempre  la 
suma  de  control,  automáticamente.  Por  ello,  el  proceso  de  escritura 
tiene  que  efectuarse  con  un  programa  propio  en  código  máquina.  En 
el  menú  princpal  se  elige  EDITAR  BUFFER  y  con  el  comando  "A” 
se  pasa  a  modo  cambio.  Ahí  se  borra  el  BUFFER  con  “Z”  y  se  meten 
estos  datos  en  el  modo  de  memoria  decimal. 

Ahora  se  abandona  el  modo  de  cambio  y  se  escriben  los  datos  con 
el  comando  “W”  en  el  BUFFER.  Después  se  puede  comenzar  el 
programa  en  código  máquina  con  “E”.  El  floppy  se  pondrá  en  marcha 
y  se  parará  en  poco  tiempo,  dando  el  mensaje  OO.OK.OO.OO.  El  éxito 
del  procedimiento  se  reconoce  al  intentar  leer  el  sector  10  de  la  pista 
35.  Dará  un  mensaje  “23  READ  ERROR,  35,  10”,  el  bloque  se  ha 
vuelto  ilegible. 


3  FQR I =ATOB  s  V=0 1 G0SUB6 : S=S+ V ¡ POKE I , 
ViNEXT 

4  RE ADT i  I FS<  >TTHENPR I NT “ C RVSON  3  ERRO 
R  EN  DATAS ! *  i END 

3  PRI NT "CARGA  LA  SEGUNDA  PARTE" i END 
6  READH4 i GOSUB7 i V-V* 1 6 i H*=M I D» ( H* , 2 


C0MM0D0RE  WORLD 


París  para  desayunar,  Tokye 
para  el  almuerzo  y  el  Puente 
Golden  Gafe  para  la  tena. 


Aquí  está  el  cambio.  En  vez  de  huir  de 
los  monstruos,  usted  es  el  monstruo. 
Su  elección  puede  ser  Godzilla,  el 
Glog,  la  Tarántula  Gigante,  el  Robot 
Metálico  u  otros  igualmente 
desagradables. 


w i  iuduiliu  en  laiaiuna  y  Baleares  por:  U1SCLUB,  S.A.  -  Baleares,  58  -  BARCELONA  Tel.  (93)  302  39  08 


¿Cuál  es  su  ciudad  favorita?  ¿París? 
¿Tokyo?  ¿Nueva  York?  ¿Londres?, 
¿Qué  tal  Moscú? 

Sí,  un  pequeño  viaje  para  devorar  el 
Kremlin  sería  agradable.  ¿Qué  tal  un 
atrevido  rescate  en  el  Big  Apple?  Una 
audaz  escapada  cerca  del  Big  Ben,  o 
engullir  ávidamente  y  de  una  vez  por 
todas  el  Golden  Gate. 

Pero  no  espere  una  cálida  bienvenida... 
Cuente  con  mucho  más  que  esos 
molestos  humanos,  que  pueden 
lanzarse  contra  usted:  Tanques,  Cazas 
F- 1 1 1 ,  Rastreadores,  La  Armada,  La 
Fuerza  Aérea  y  Los  Marines. 

Deje  de  quejarse.  Usted  sabe  muy  bien 
lo  que  se  le  viene  encima. 

¡¡Usted  es  el  MONSTRUO!! 


Applell 
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Santa  Cruz  de  Marcenado.  31  -  28015  Madrid 
Telf.  241 10  63 


705 


753199 


PROGRAMA i  FL0PPY.2  LISTADO  2 

1  A-35120  . 13 

2  B-40959  .  14 

3  FORI-ATOBiV-BiGOSUBÓiS-S+ViPOKEI,  .145 
ViNEXT 

4  READTi IFS<  >TTHENPRINT" CRVSON1ERRO 
R  EN  DATAS ‘ " « END 

5  PRI NT "GRABA  EL  PROGRAMA  COMPLETO" 

I  END 

6  READH*lGOSUB7iV-V*16«H*-MID*(H*,2 


¡¡Arrastre  una  rodilla  por  el  asfalto!! 

Aguante  el  arranque  de  la  torrera  a 
180  km/h.f  sin  que  le  rethinen  los  dientes. 


■  pilotos  junto  a  usted.  Uno 
r  detrás  y  el  otro  a  la  altura  de 
El  rugido  de  las  motos  es 


El  viento  golpea  su  casco;  su 
adrenalina  está  subiendo  como  la 
espuma. 


DISTRIBUIDO  en  Cataluña  y  Baleares  por:  DISCLUB.  S.A.  -  Baleares.  58  -  BARCELONA  Tel.  (93)  302  39  08 


neumáticos  de  la  moto  que  le  precede, 
hacen  saltar  grava  sobre  su...  su... 

Se  oye  un  teléfono  ¿un  teléfono? 
¡¡Heyü  espere  un  momento.  Esto  no  es 
una  moto,  es  una  silla.  Ahora  todo 
vuelve  a  la  realidad. 

Sí,  usted  está  en  casa,  la  pizza  está 
aquí,  el  ordenador  está  conectado. 
Parece,  que  al  final  va  a  ser  otra 
apacible  noche  después  de  todo. 

Si  Super-Cycle  fuera  un  poco  más 
realista,  usted  necesitaría  un  seguro 
para  conducirlo. 

C-64/128 


j/j\  Editado  y 

distribuido  bajo 

f  LJk  licencia  por: 

/CQMPULOGICftL  su. 


Tumba  su  moto  hacia  la  derecha...  y  ha  sido  golpeado, 
está  volando  y  dando  tumbos  junto  con  la  moto. 


Aparte  sus  ojos  de  la  carretera  una 
milésima  de  segundo  y  acabará  en  la 
cuneta. 


Todo  está  borroso;  no  hay  tiempo  para 
pensar.  La  próxima  curva  acaba  en  un 
precipicio  y  es  muy  cerrada;  los 


COMMODORE  WORLD 


220  PRINT"[RVSON3C8SPC3PARA:  C-64  b 
FLOPPY  1 54  1  [  8SPC  3  C  RVSOFF 1 " : 

230  PR  I  NT  "  C  RVSON  3  C  39SPC  3  t  RVSOFF  3  ”  ; 
240  PR I NT " [ RVSON  3  C  5SPC  3(0  1985  :  F 

R ANK  R I EMENSCHNE I DER  1  2SPC  3  C  RVSOFF  3  ” 


260  F0RI  =  1T012: SYS  PR , SQ ( I )  ,  Z < I )  ,F* 

( I ) : NEXTI 

270  1  =  1 :  SYS  PR.SGMI)  ,Z(I)  ,"CRVS0N3" 

S  F* ( 1 )  : " C RVSOFF 3 " 

280  POKE 198,0: WA I T i  98 , 255 : GET  A4 
290  IFA$<  >" CCRSRD3 "THEN320 
300  SYS  PR,SQ(I)  ,Z(I)  ,F*(I> : 1=1+1: I 
FI >12THENI=1 

310  SYS  PR.SOII)  ,Z(D  ,"CRVS0N3";F*< 

I )  :  '•  l  RVSOFF  3  ”  :  BOTO2B0 

320  I  FAf<  >" C CRSRU3 "THEN350 

330  SYS  PR.SQ ( I )  ,Z  ( I)  ,F* < I ) : 1  =  1-1 1  I 

F  I  < 1 THEN I  =  12 

340  SYS  PR. senil  ,  Z  <  I  >  , "CRVS0N3”;F*< 

I )  s  •'  C  RVSOFF  3  "  :  GOTO280 

350  IFA4<>"C CRSRR 3 " THEN380 

360  SYS  PR,SQ(I) ,Z (I) ,F*(I> i I»I+6: I 

FI >12THENI=I-12 

370  SYS  PR,SQ(I) ,Z(I> , " CRVS0N3 " ( F* ( 

1 1 : " C  RVSOFF  3 " : GOTO280 

380  IFA$<>"[ CRSRL3 "THEN4 1 0 

390  SYS  PR.SQ(I) ,Z (I) ,F*(I> : 1=1-6: I 

F I < 1 THENI =1+12 

400  SYS  PR.SQ(I) ,Z (I) ,"[RVS0N3M;F*< 

I »  s  C  RVSOFF  3  "  :  GOTO2B0 

410  IFA*OCHR*(13)THEN280 

420  ON I GOTO430 , 1 540 , 2620 , 3730 , 3290 , 

2190. 2580 .4180. 4240 , 4270 ,2180, 4550 

430  T1=18:S1=0:S=0: T=0 : P0KE53265 , 1 1 

: S YS3766B : GOSUB 1420: P0KE53265 , 27 

440  IFA<  >0ANDFG=0THENPOKE1 98 .0: WAI T 

198, 255: GOTO 180 

450  FG= 1 

460  SYS29610: A*=CHR* (PEEK ( 147) ) i IFA 
♦="H"THENSYS34442:  GOTO460 
470  IFA*<V'N"THEN510 


I  IFA*O"R"THEN530 

I  S 1 =S : T 1 =T: GOSUB 1 420 : GOTO460 

I  IFA*O"#"THEN550 

)  SYS31380: GOTO570 

)  IFA*O"*"THEN590 

1  SYS  31341 

)  GOSUB5B0: GOTO460 

)  P0KE78 1 , Z : SYS36870 : B2=PEEK ( 5299 

! ) : SYS  31419, B2:RETURN 

5  IFA*O"F"THEN620 

5  SYS28955 , T , S : I FPEEK ( 254 1 <  >0THEN 


620  IFA*<  >"W"THEN650 
630  SYS  BL ,  2  ,T ,S: SYS  FE 
640  GOTO460 
650  IF  A4<  >  "  C  " THEN690 
660  SYS  PR.17.0.C* 

670  H=T :  H 1  =S :  GOSUB4370 :  T*= “  I NPUT-SE 
CTOR" : SYS  PR ,  17 ,0  ,  T*:  SYS  BL,2,T1,S1 
680  SYS  FE : GOTO460 
690  IFA*O"L"THEN730 
700  SYS29258: I FPEEK  <254 ) =0THEN460 
710  T1=PEEK(250) :S1 =PEEK ( 253 ) 

720  SYS  BL , 1 , T 1 , S 1 : GOSUB 1 420 : G0T046 
0 

730  I F fl$< >  "  S  " THEN780 

740  GOSUB750: GOTO460 

750  IFZ=0THENZ= 1 28: SYS  36864, 128:B» 

=  "  128" : B1=PEEK  <531 19) : GOTO770 

760  Z=0: SYS  36B64 , 0: B*=" C2SPC30" : B1 

=PEEK (52991) 

770  SYS  31419, B1:SYS  PR,9, 1 ,B*: RETU 


810  GOSUB4480 :  POKE  1 98 , 0 :  WA I T  198,25  , 
5: GET  B* 

820  IF  B*<  >  "  t CRSRR 3 " THEN860 

830  I FP<  1 27THENB=B+ 1 :  P=P+ 1 1  SYS  MO,P 

-1 , P: GOTO810 

840  I FB= 1 27THENB=B+ 1 : P=0 : SYS  36864, 

128: SYS  MO , P , P : G0T08 1 0 

850  I FB=255THENB=0 : P=0 : SYS  36864,0: 

SYS  MO , P , P : GOT08 1 0 

860  IFB*O"»"THENBB0 

870  HQ= 1 : GOSUB4630 i G0T08 1 0 

880  IF  B*<  >" CCRSRL3 "THEN920 

090  I FP >0THENB=B- 1 1 P=P— 1 1  SYS  M0,P+1 

,P: GOTOB10 

900  I FB= 1 2BTHENB=B— 1 : P= 1 27  s  SYS  3686 

4,0: SYS  MO ,P ,P: GOTO810 

910  I FB=0THENB=255 : P= 1 27 : SYS  36864, 

128: SYS  MO , P , P : G0T08 1 0 

920  IFB»O"*"THEN940 

930  HQ=2 : GOSUB4600 i G0T08 1 0 

940  IFB*OCHR*(34)THEN960 

950  HQ=3 l G0SUB46 1 0 : G0T08 1 0 

960  IFB4<  >"  CCRSRU3 "THEN1000 

970  IFP>7THENB=B-B«P=P-B:5YS  MO.P+B 

,P: GOTO810 

980  I  FB<  BTHENB=B+248 :  P=  1 20+P  i  SYS  36 

864 , 128: SYS  MO,P,P:GOTO810 

990  IFB>7THENB=B-8:P=1 20+P: SYS  3686 

4,0: SYS  MO , P , P : 0OTO8 1 0 

1000  I FB*<  > " Z " THEN 1 030 

1010  GOSUB 1 020 :G0T08 10 

1020  SYS29224 , P+Z : SYS36864 , Z : SYS  MO 

, P , P : RETURN 

1030  IFB4<  >" CCRSRD3 "THEN1070 

1040  I FP< 1 20THENB=B+S : P=P+8 : SYS  MO, 

P-B,P:GOTOB10 

1050  I FB<  200THENB=B+8 : P=P— 1 20 : SYS  3 
6864 , 128: SYS  MO,P , P: GOTO810 
1060  I FB >200THENB=B-24B : P=P-120:SYS 
36864, 0:SYS  MO,P, P: GOTO810 
1 070  I FB*<  >CHR* ( 1 4B ) OR ( P= 1 27ANDZ= 1 2 
8) THEN 1090 

1080  POKE  1 79 ,  Z :  SYS374 1 0 , P+Z  1  SYS  MO, 


1 1 00  POKE  1 79 ,  Z :  SYS37447 ,  P+Z :  GOTO890 
1110  IFB*="ÜFLCH  ARRIBA! "THEN 1250 
1120  A=ASC(B») : I F A<  G 1 ORA  >G40R  <  A  >G2 A 
NDA<  G3 ) THEN8 1 0 

1130  T*=B*+"C2SPC3":SYS  PR,27,1,T*: 

P0KE63 1,29: POKE 198,1 

1140  POKE40880 , 48 : POKE4088 1,32: ONHQ 

G0T01 150, 1180, 1230 

1150  SYS  IN, 3, 0,27, 1,0 

1160  GOSUB4560:E=VAL(F*> : IFE<0ORE>2 

55THEN 1 1 50 

1170  BOTO 1240 

1180  SYS  IN, 2, 1,27, 1,0 

1190  GOSUB4570 

1200  E= ( C— 48— ( CAND64 ) *0 . 109375)*16+ 
(E-48- (EAND64 ) *0. 109375) 

1210  I FE<  0ORE  >255THEN 1 1 80 
1220  GOTO 1240 
1230  E=ASC<B*> 

1 240  P0KE5299 l+Z+P.E: P0KE7B 1 , Z : SYS3 
6870 : GOTO830 

1250  B=0: SYS  36864 ,0: GOSUB44B0: RETU 
RN 

1260  IFA*O"V"THEN1320 

1270  T1=T:S1=S+1 

1 280  I FS 1 >V ( T 1 ) THENI 300 

1290  GOSUB1420: GOTO460 

1300  T1=T1+1 : S1=0: IFT1 >35THENT 1 = 1 

1310  GOTO 1290 

1320  IFA*<>"Z" THEN 1370 

1330  T1=T : S1=S— 1 : IFS1 >=0THEN1360 

1340  TI =T 1-1:1 FT1<1 THENT 1=35 


BIBLIOTECA 


¡HASTA  EL  MEJOR  PRODUCTO 
SE  PUEDE  MEJORAR! 


COMPRUEBALO  EN  I.A  PAGINA  SIGUIENTE 


0SE1 :  IFA=0THEN2150 

2140  PRINT"t:CLR]":T*="FLOPPY: "+STR*  . 

(0)+" , "+B*+" , ”+STR*(C)+" , ”+STR*(D> : 

SYSPR, 0, 10,T*:GOTO2160 

2150  SYS37379:5L=0:SH=192:SK=5 

2160  P0KE646 ,T1 : PRINT" I RVSOFF ] " s  POK 

E53265 , 27 : RETURN 

2170  SYS  PR ,  2 ,  Z  ,  "  >  " : RETURN 

2100  SÜSUB 1 90 1 SYS3 1 502 :  GOTO 1 80 

2190  SYS29771 : S1=0 

2200  SYS296 1 0 : A*=CHR* ( PEEK ( 1 47 ) ) : SY 
S29851 

2210  I F A*<  >  "  H  " THEN2230 

2220  SYS  34442: GOTO2200 

2230  I F A*<  >  ”  F  " THEN2250 

2240  SYS30599 ,  T ,  1 ,  V  ( T )  : GOTO2200 

2250  IFA*O"*"THEN2270 

2260  SYS29654 :  SYS30340 ,  S 1 :  GQTO2200 

2270  I F A$<  > ” C CRSRD ] " THEN2300 

2280  S1=S1  +  1:  IFS1XV(T)-15)THENS1=0 

2290  SYS30340 , S 1 : GOTO2200 

2300  IFA*O"CCRSRU]MTHEN2330 

2310  SI =S1-1 : IFS1<0THENSI=V (T) — 15 

2320  SYS30340 ,  S 1 : GQTO2200 

2330  IFAS<>”#“THEN2350 

2340  SYS29675 : SYS30340 , S 1 : GOTO2200 

2350  IFA*O"C“THEN2420 

2360  SYS  PR,18,0,C* 

2370  SYS  IN,2, 0,32,0, 13:GOSUB4560 
2380  T1=VAL(F*> 

2390  IFV (TI ) <V (T) THEN2370 

2400  SYS30029 ,2, TI ,  V  (TI  >  +1 

2410  T*=”  INPUT— PISTA:  " : SYSPR, IB ,0 

,T*:GOTO2200 

2420  IFA*<>,'W"THEN2440 

2430  S YS30029 ,2,T,V(T)+1: GOTG2200 

2440  IFA*O"Z"THEN2470 

2450  T1=T-1: IFT1C 1THENT1=35 

2460  GOTO2560 

2470  IFA*O"V"THEN2500 

2480  T1=T+1: IFT1 >35THENT1=1 

2490  GOTO2560 

2500  IFAÍO"CFLCH  ARRIBA]” THEN2520 
2510  GOTO  180 

2520  I F ( ASC ( A* ) <  480RASC ( A* ) >57 ) AND ( 
ASC  <  A* ) <  > 1 3 ) THEN2200 

2530  F*="":P0KE19B,1:SH=29: IFA*=CHR 
*(13>THENSH=13 

2540  P0KE63 1 , SH : SYS  PR,32,0,A* 

2550  SYS  IN , 2 , 0,32,0, 13: GOSUB4560: T 
1 = V AL ( F*  > : I FT 1 < 1 ORT 1 >35THEN2550 
2560  SYS  30029,1, TI, V(T1)+1 
2570  T-T 1 : SYS30340 , 0 : S2= 1 : T*=STR* ( T 
)+••  " :  SYSPR , 6 , 0 , Tí :  GOTO2200 
2580  SYSPR, SQ(I) ,Z<I) ,F*(I> 

2590  0PEN1 ,8, 15:PRINT#1,"I": INPUT#1 
, A , B» , C , D : CLOSE 1 : I FA=0THEN270 
2600  PR I NT “ C  CLR ] ” : Tí = ” FLOPPY : “ +STRÍ 
(A) +" , "+BÍ+" , "+STRÍ  <C) +" , "+STRÍ  (D) : 
SYSPR, 0, 10, Tí 

2610  POKE 1 9B ,  0 :  WA I T 1 98 , 255 :  BOTO  1 B0 
2620  Z=0 : G0SUB3 170:1 FA< >0THENPOKE 1 9 
8,0: WAIT19B , 255: GOTO 180 
2630  FG=1 : SYS29622: AÍ=CHRÍ (PEEK (147 
) > :TÍ="C40SPC]” 

2640  SYS  PR,0,0,TÍ: IFAÍ< >”H"THEN266 
0 

2650  SYS34442: GOTO2630 

2660  I FAÍ  <  > ” R " THEN2680 

2670  GOTO2620 

2680  IFAÍO"S"THEN2720 

2690  I F  Z  =0THEN  Z  =  1 28 : SYS32768 , 1 : GOTO 

2700  Z=0: SYS32768 , 0 

2710  SYS36352: GOTO2630 

2720  IFAÍ<>“W"THEN2760 

2730  SYS32959: 0PEN1 , 8 , 15: INPUTttl ,A, 

Bí , C , D : CLOSE 1 : I FA=0THEN2630 

2740  T $=  " FLOPPY :  " +STR*  (A)  +"  ,  "+B*+"  , 

" +STR* ( C ) + " , " +STR* ( D ) : SYSPR , 0 , 0 , T* 

2750  GOTO2630 

2760  IFA*<>"A"THEN3150 

2770  T=1:S=0: IFZ=128THENT=19 


2780  GOSUB3230 

2790  POKE 1 98 , 0 : WA I T 1 98 , 255 : GETB$ 

2800  I FB$<  > " t  CRSRR ] " THEN2860 
2810  GOSUB3250 

2820  S=S+1 : IFS>V (T) THENT=T+1 : S=0 
2830  IFT=19ANDS=0THENGOSUB3270 
2B40  I FT =36ANDS=0THENGOSUB32B0 : T= 1 
2B50  GOSUB3230: GOTO2790 
2860  IFB*<  >" CCRSRL] “THEN2940 
2870  GOSUB3250 : S=S— 1 
28B0  IFS>=0THEN2910 
2890  T=T- 1 : 1  FT<  1  THENT=35 
2900  S=V(T> 

2910  I FT  — 35ANDS= 1 6THENGOSUB3270 
2920  IFT=18ANDS=1BTHENGOSUB32B0 
2930  GOTO2B50 

2940  IFB*O"CCRSRU],,THEN3000 

2950  GOSUB3250 

2960  T-T-l: IFT<1THENT=35 

2970  I FT = 1 BTHENGOSUB3280 

2980  I FT =35THENGOSUB3270 : Z=128: IFS> 

16THENS=16 

2990  GOTO2850 

3000  IFB*<>"t CRSRD ]”THEN3070 
3010  GOSUB3250 
3020  T=T+1: IFT>35THENT=1 
3030  IFS>V(T)THENS=V(T) 

3040  I  FT *=  1 9THENGOSUB3270 
3050  IFT=1THENGOSUB3280 
3060  GOT 02850 

3070  IFB*="CFLCH  ARRIBA] "THEN3 140 
3080  I FB*<  > ” * " ANDB*<  > " . " ANDB*<  > " B ” A 
NDB*<  >“F"THEN2790 

3090  I FB*= " B“ THENSYS37273 , T , 46 : GOTO 
3130 

3100  IFB*="F“ THENSYS37273 , T , 42 : GOTO 
3130 

3110  E=ASC(B*):SYS  32818, T,S,E 
3120  SYS36352: GOTO2820 
3130  SYS36352: GOTO3020 
3140  GOSUB3250: GOTO2630 
3150  IFA*<>"CFLCH  ARRIBA] “THEN2630 
3160  0PEN1 ,8, 1 5 , ” I " : CLOSE 1 : GOTO 1 80 
3170  P0KE53265 ,11: 0PEN2 , 8 , 2 , " # " : OPE 
N1,B,15:PRINT#1,"B-R  2  0  IB  0” 

3180  CL0SE2: CLOSE 1 

3190  0PEN1 ,8,15: INPUT#1 ,A,B*,C,D:CL 
0SE1: IFA=0THEN3210 

3200  PRINT" tCLR] ” : T*= " FLOPPY : " +STR* 

( A) +” , "+B#+" , "+STR* (C) +* , "+STR* (D) : 

SYSPR , 0 , 1 0 , T* : GOTO3220 

3210  SYS  39682 :SYS36352 

3220  P0KE53265, 27: RETURN 

3230  AA=1114+T*40+S: I FZ  =  1 2BTHEN AA= A 

A— 720 

3240  POKEAA ,PEEK ( AA>  +  128: RETURN 
3250  AA=1114+T*40+S: I FZ  = 1 28THENA A= A 
A— 720 

3260  POKEAA, PEEK (AA) -128: RETURN 
3270  SYS  33211: SYS  BW , 1 : SYS36352: Z= 
128: RETURN 

3280  SYS  33211:  SYS  BU , 0 : SYS36352 : Z= 
0: RETURN 

3290  A A=0 : P0KE53265 , 1 1 : SYS393 1 2 : GOS 
UB3670: P0KE53265 , 27 

3300  SYS29610: A*=CHR* ( PEEK ( 1 47 ) ) : I F 
A$— " H " THENS YS  34442: GOTO3300 
3310  IFA*<  >"A"OR (A*=”A"ANDAA>1792) T 
HEN3330 

3320  GOSUB800: GOTO3300 

3330  IFA*O"R"THEN3350 

3340  GOSUB3670: GOTO3300 

3350  I FA*<  > " S " THEN3370 

3360  GOSUB750: GOTO3300 

3370  IF  ( A*<  >"U"  )  OR  ( A*=*”U"ANDAA>1792 

) THEN3390 

3380  SYS  PS , AA : GOTO3300 

3390  IFA*O”#"THEN3410 

3400  SYS  31380: G0SUB580: GOTO3300 

3410  IFA*O"*"THEN3430 

3420  SYS  3 1 34 1 : GOSUB580 : GOTO3300 

3430  I F A#<  > " C " THEN3490 

3440  SYS  PR ,17,0, C$ 


«» 
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ESTRENO  MUNDIAL 


THE  FINAL  (ARTAIDCE  2 

EL  PRIMER  SISTEMA  OPERATIVO  EXTERNO 
PARA  EL  CBM  64 

AHORA,  CON  FREEZER  COMPLETO 

(Puede  cargar  sus  backups  sin  el  cartucho) 

Este  sistema  operativo  construido  en  un  cartucho  no  utiliza  memo¬ 
ria  alguna  y  está  siempre  presente.  Compatible  con  99% 
de  los  programas. 


TURBO  DISCO:  Carga  6  veces  más 
rápido  -salva  6  veces  más  rápido  -  No 
Borra  la  pantalla. 

TURBO  CINTA:  1 0  veces  más  rápido, 
incluso  con  ficheros.  Utiliza  los  coman¬ 
dos  normales  del  Commodore  (Load- 
Save-lnput7r,...) 

INTERFACE  CENTRONICS:  Permite  uti¬ 
lizar  las  impresoras  de  tipo  paralelo. 
Imprime  los  gráficos  Commodore  y  los 
códigos  de  control. 

(Importante  para  los  listados). 
VOLCADOS  DE  PANTALLA:  De  alta 
revolución  y  texto.  1  página  de  ancho. 
12  tonos  grises,  copia  pantallas  de  jue¬ 
gos  o  de  programas  como  Doodle, 
Koala  Pad,  Print  Shop,  etc.  Busca  auto¬ 
máticamente  la  dirección  en  memoria. 

Funciona  con  impresoras  Commo¬ 
dore  y  Centronics. 

24  K.  MAS  DESDE  EL  BASIC:  2  nuevos 
comandos,  “memory  wrlte"  y  “memory 
read"  mueven  192  bytes  muy  rápida¬ 
mente  en  cualquier  sitio  de  los  64  RAM 


COMANDOS  DEL  BASIC  4.0:  Como 
dload,  dsave,  dappend,  catalog,  etc. 
TECLAS  DE  FUNCION  TELEPROGRA¬ 
MADAS:  Run,  load,  save,  catalog, 
comandos  de  disco,  list  (quita  las  pro¬ 
tecciones  contra  el  listado  de  los  pro¬ 
gramas  en  BASIC). 

MONITOR  DE  CODIGO  MAQUINA: 

Scroll  hacia  arriba  y  abajo. 
Bankswitching  (para  leer  y  escribir 
debajo  de  las  ROOMS),  etc...  No  reside 
en  memoria.  Se  puede  llamar  en  cual¬ 
quier  momento  con  cualquier  programa 
en  memoria. 

RESET:  Resetea  todos  los  programas. 
TRAINING  MODE:  Para  cancelar  la 
detección  de  colisión  de  sprites 
podrás  ir  hasta  el  final  de  los  juegos 
sin  que  te  maten  los  bichos  malos. 


+ 


Ejemplo  de  volcado  de  pantalla. 


¡Hasta  el  precio 

es  increíble! 


SUPER  FREEZER 

Pulsando  el  botón  del  FREEZER,  to¬ 
mará  el  control  de  su  ordenador,  '‘con¬ 
gelando”  el  programa  en  memoria.  Con 
la  ayuda  de  un  menú  muy  cómodo 
podrá: 

-Hacer  VOLCADOS  DE  PANTALLA, 
alta  o  baja  resolución  (por  ejemplo  las 
pantallas  de  sus  juegos  preferidos). 
Podrá  “congelar"  cualquier  programa 
en  el  momento  que  desee,  y  volcar  la 
pantalla  sobre  el  papel. 

—Hacer  COPIAS  DE  SEGURIDAD  de 
sus  programas.  El  FREEZER  le  permi¬ 
tirá,  con  programas  protegidos  o  no, 
cualquiera  que  sea  el  sistema  de  carga 
utilizado  (turbo,  verificación  de  errores, 


sólo  pulsando  una  tecla.  El  proceso  de 
copia  es  totalmente  automático,  y  no 
necesita  tener  ningún  conocimiento  de 
programación.  La  copia  facilitada  por  el 
FREEZER  consta  sólo  de  dos  partes  (un 
cargador  y  el  programa  propiamente 
dicho)  y  se  puede  cargar. 
INDEPENDIENTEMENTE  DEL  CAR¬ 
TUCHO  (a  velocidad  turbo),  EL 
FREEZER  de  THE  FINAL  CARTRID- 
GE  2  es  más  cómodo  y  más  rápido 
que  los  productos  especializados 
ingleses  o  americanos  probados  has¬ 
ta  ahora. 


NO  EXISTE  NINGUN  PRODUCTO 
COMPARABLE  PARA  SU  C64:  Encc 
trará  quizás  algún  FREEZER  (con  o 
nombre)  inglés  o  americano,  pero  ac 


ATENCION:  Las  copias  consegui¬ 
das  con  THE  FINAL  CARTRIGE  2 
son  exclusivamente  para  uso  pro- 


DISPONIBLE  EN  LAS  MEJORES  TIENDAS  O  DIRECTAMENTE  POR  CORREO  O  TELEFONO 


Condiciones  í 
:  especiales  para  \ 
Í  distribuidores 

V _ _ _ / 


IMPORTADOR  EXCLUSIVO 

Ét  HSffiOTSA 
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3450  SYS  IN, 5 ,0 , 32,0,0: GOSUB4560  .37 
3460  E= VAL  ( Fi ) : I FE<  0ORE  >  1 792THEN345  0.  1 5 1 
3470  TÍ="INPUT -DIRECCION: "¡SYS  PR,1  .251 


3480  SYSPS . E : GOTO3300 

3490  IFAÍO”E"THEN3510 

3500  GOSUB3950 i GOTO3300 

3510  IFAÍO"V"THEN3550 

3520  AA=AA+256: IFAA>1792ANDAA<=4915 

2THENAA=49152 

3530  IFAA>652B0THENAA=0 

3540  GOSUB3670: GOTG3300 

3550  I F Ai<  > " Z " THEN3590 

3560  AA- AA-256: IFAA<0THENAA=65280! G 

OTO3540 

3570  I FA A<  49 1 52 ANDAA  >= 1 792THENAA= 1 7 
92 

3580  GOTO3540 

3590  IFAiO-CFLCH  ARRIBA! "THEN36 10 
3600  GOTO 180 

3610  I F ( Aí <  CHRi ( 48 ) OR A*  >CHRÍ ( 57 ) ) AN 
D  ( Ai<  >CHRÍ ( 13) ) THEN3300 
3620  SH=29i IFAÍ=CHRi(13)THENSH=13 
3630  SYS  PR,32,0,AÍ!POKE198,1iPOKE6 
31  ,SH 

3640  SYS  IN , 5,0.32,0,0! GOSUB4560 

3650  E=VAL(Fi> ! IFE<0ORE>65280OR (E>1 

792ANDE<49152) THEN3640 

3660  AA=E  I  GOSUB3670 ! GOTO3300 

3670  SYS  PL,AA 

36B0  SYS  34782 

3690  AÍ=STRÍ(AA)+"  "|SYS  PR,B,0,AÍ 

3700  B 1  - AA+256 !  I FB 1  >  1 792 ANDB 1  <  =49 1 5 

2THENB 1=49 152 

3710  I FB 1 >65280THENB 1 =0 

3720  SYS  PR .31 ,  0 ,  B 1  ¡ RETURN 

3730  AA=768 1 PU=0 1 P0KE53265 , 1 1 1 SYS38 

726 1  G0SUB4 1 30 1  P0KE53265 , 27 

3740  SYS29610: AÍ=CHRÍ (PEEK ( 147) > I IF 

AÍ="H" THENSYS34442 i GOTO3740 

3750  IFAÍO"A“THEN3770 

3760  GOSUB800! GOTO3740 

3770  I F Ai<  >  "  R  " THEN3790 

3780  G0SUB4 1 30 ¡ GOTO3740 

3790  IFAÍO"S"THEN3810 

3800  GOSUB750! GOTO3740 

3810  I F Ai<  > " # " THEN3830 

3B20  SYS  313801 GOSUB5801 GOTO3740 

3830  IFAÍO"i"THEN3850 

3840  SYS  31341 1 GOSUB580! SOTO3740 

3B50  I FA*<  > " W ” THEN3870 

3860  SYS  PS , 768+PU*256 i GOTO3740 

3870  IFAÍ<  >"C"THEN3930 

3880  SYS  PR,17,0,CÍ 

3890  SYS  I N , 1 ,0,32,0, 13: GOSUB4560 

3900  E=VAL(FÍ> ! IFE<0ORE>4THEN3890 

3910  Ti=  "  I NPUT— BUFFER  ! " i  SYS  PR,17, 

0,T* 

3920  SYS  PS , 768+E*256: GOTO3740 
3930  I F Ai<  >  "  E  M  THEN3990 
3940  GOSUB3950! 6OTO3740 
3950  HB=INT (AA/256) ¡  LB=AA— HB*256 
3960  0PEN1 ,8,15! PRINT#1 , "M— E"  CHRi  ( 
LBi  CHRÍ(HB) i INPUTil , A , Bi ,C ,Di CLOSE 
3970  T*="FLOPPYl  " 

3980  SYSPR,0,2,T*iSYS  FEi RETURN 

3990  IFAÍ< >"  VTHEN4020 

4000  PU=PU+li IFPU>4THENPU=0 

4010  AA=768+PU*256 i GOSUB4 1 301 G0T037 

40 

4020  IFAÍ<  >" Z "THEN4050 
4030  PU=PU— 1 1  I FPU<  0THENPU=4 
4040  GOTO4010 

4050  IFAiO-IFLCH  ARRIBA! "THEN4070 
4060  GOTO1B0 

4070  IF ( AiKCHRi (48) ORAi>CHRi (57) ) AN 
D ( A*<  >CHRi (13)) THEN3740 
4080  SH=29 1  I FAÍ=CHRi (13) THENSH= 1 3 
4090  SYS  PR , 32 , 0 , Ai i POKE 1 98 , 1 1 P0KE6 
31, SH 

4100  SYS  IN,1 ,0,32,0, 0IGOSUB4560 
4110  E=VAL (Fi) ¡ IFE<0ORE>4THEN4 100 
4 1 20  AA=76B+E*256 ¡ PU=E i G0SUB4 1 30 i GO 


4150  AÍ=STRÍ (PU) +  "  "  s SYS  PR,B,0,AÍ 

4160  B 1 =PU+ 1:1 FB 1 >4THENB 1 =0 

4170  SYS  PR ,31 , 0 , B 1 i RETURN 

4180  BOSUB190I SYS34550 

4190  SYS  PR ,0 ,21 , " C38C0MMT! " ! SYS  IN 

,38,1,0,20,13 

4200  BOSUB4560I 0PEN1 ,8, 15iPRINT#l ,F 
♦  i INPUTttl , A , Bi , C , D:  CL0SE1 
4210  IFA=0THEN1B0 

4220  TÍ=”FLOPPY¡ “+STRÍ ( A) +" , "+Bi+" , 
"  +STRÍ  ( C )  +  ■  ,  " +STRÍ  ( D )  :  S YSPR ,  0 , 23 ,  Ti 
4230  POKE 198,01 WA I T 1 98 , 255 ! GOTO 1 B0 
4240  SYS36608! OPEN1 ,B,15i INPUT#1,A, 
Bi , C , D ! CLOSE 1 1  I FA=0THENPOKE 1 98 , 0 ¡ WA 
IT  198 ,255 1  GOTO 180 

4250  Ti="FLOPPY¡ " +STRÍ (A) +" , "+BÍ+" , 
"+STRÍ ( C ) + ” , ” +STRÍ ( D ) 

4260  PRINTi PRINTTi! P0KE198 ,0! WAIT19 
B,  2551  GOTO  180 
4270  GOSUB190 

4280  TÍ="POR  FAVOR  ENTRE  EL  NUMERO 
DE  LA  UNIDAD"  !  SYSPR ,  0, 12, Ti 
4290  Ti=”ACTUAL  DE  SALIDA.  "iSYS  PR 
,0, 14, Ti 

4300  Ti=” CAMBIAR  DE  LA  UNIDAD  ¡  >B< 
ACTUAL. "iSYS  PR, 0,16, Ti 
4310  TÍ="A  LA  UNIDAD  NUMERO  i  9”|SY 
S  PR, 0,19, Ti 

4320  SYS  IN,2,0,21 , 19,0: 6OSUB4560 
4330  E=VAL ( Fi ) i  I FE<  80RE  > 1 5THEN4320 
4340  OPEN1 , E, 15 

4350  PRINT#1,"M-N”  CHRi(119)  CHRÍ(0 

)  CHRi ( 2 )  CHRi (40)  CHRi (72) i CLOSE 1 

4360  POKE 186, 8: GOTO 180 

4370  SYS I N , 2 , 0 , 32 , 0 , 13: GOSUB4560 

4380  Tl-VAL(FÍ) i IFT1 >350RT1< 1THEN43 
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4390  SYSIN, 2, 0,36,0, 13iBOSUB4560 
4400  S 1 = VAL (Fi) i IFS1< 0THEN4390 
4410  IFS1>V(T1> THEN4390 
4420  RETURN 

4430  H=T1 : H1=S1 ! T1=PEEK (52991 ) i S1=P 
EEK (52992) 

4440  IFT1<=0ORT1 >35THEN4470 
4450  I FS 1 >V ( T 1 ) THEN4470 
4460  RETURN 

4470  Tl=Hs  S1=H1 ! GOTD720 
4480  Bü=STRÍ(B) 

4490  IFLEN  (Bli)  <4THENBÜ=“  "+B1Í¡G0 
TO4490 

4500  SYS  PR,B, 1 ,B1* 

4510  B2=PEEK  ( 5299 1 +B ) 

4520  I FB > 1 27THENZ  =  128 
4530  IFB< 12BTHENZ=0 
4540  SYS  31419, B21RETURN 
4550  SYS6473B 

4560  Fi= " " i FOR I =0TOPEEK ( 1 80 ) - 1 : FÍ=F 
i+CHRi  (PEEK  (40880+1 )  )  :  NEXTI :  RETURN 
4570  C=PEEK  ( 40880 )  :  E=PEEK  ( 4088 1 )  i  I F 
C=320RC= 1 60THENC=48 
4580  IFE=32THENE=C:C=48 
4590  RETURN 

4600  POKE40452 , 48 : POKE40457 , 58 ¡ POKE 
40462,65: POKE40467 ,71¡G1=4B:G2=57:G 
3=65 iG4=70! RETURN 

4610  POKE40452 , 32 1  POKE40457 , 1 28 1  POK 

E40462 , 160: POKE40467 ,161 

4620  Gl=32s G2=127: G3=160: G4=161 i RET 


4660  I FS 1 =— 1 THEN 1 750 

4670  FORI=0TOS1 : AÍ=CHRÍ (PEEK (40880+ 

I > ) : IFAÍ<  >CHRi (34) THEN4700 

4680  IFI=0THEN1750 

4690  GOTO1740 

4700  FÍ=FÍ+Ai: NEXTI i  GOTO  1740 
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BIBLIOTECA 


DE  LA  NUEVA  GENERACION 


MUY  POTENTE,  PERO  DE  USO  SENCILLO  (Podrá  usarlo  INCLUSO  SIN  MANUAL)  gracias  a  su  sistema  exclusivo  de 
menus  pQr  ventanas. 

PROTEXT  incorpora  todas  las  funciones  que  necesita  un  buen  procesador  de  texto  (márgenes,  justificación  longitud  de  Dáeina 
menudo0  aUt0mátlC0’  borrado  de  Palabras  o  de  párrafo,  búsqueda  de  palabras,  etc.)  así  como  otras  que  no  se  suelen  encontrar  tan  á 

—  Caracteres  españoles  y  acentos  directamente  en  pantalla,  y  reproducción  automática  por  impresora. 

—  Visualización  del  trabajo  en  pantalla,  en  80  columnas  reales,  y  en  su  formato  exacto. 

—  Calculadora  con  las  operaciones  básicas,  %,  etc. 

—  Posibilidad  de  leer  textos  escritos  con  otros  procesadores  (por  ejemplo,  Easy  Script).  Para  trabajarlos  con  PROTEXT  bastan 
unas  mínimas  modificaciones. 

—  Compatible  con  las  impresoras  COMMODORE,  RITEMAN,  STAR,  EPSON  y  casi  todas  las  impresoras  de  tipo  CENTRO- 

—  Nuevos  sets  de  caracteres  para  las  impresoras  COMMODORE  (no  las  va  a  conocer)  por  supuesto  con  acentos  y  caracteres 
españoles.  Por  si  fuera  poco,  puede  conseguir  con  su  impresora  COMMODORE  escritura  proporcional 

—  Editor  de  caracteres.  Podrá  diseñar  Vd.  mismo  nuevos  juegos  de  caracteres  para  su  impresora  COMMODORE 

—  Elección  del  color  de  la  pantalla  y  del  texto. 

—  Etcétera. 

Si  su  procesador  de  textos  tiene  todas  estas  posibilidades  y  además  es  de  muy  fácil  manejo,  enhorabuena 
Si  no  es  el  caso,  ya  sabe... 


OFERTA  EXCEPCIONAL  DE  LANZAMIENTO:  7.950  Ptas. 


LASER  1,0 


CARTUCHO  TURBO  Y  UTILIDADES 
PARA  DISCO 


—  No  ocupa  memoria. 

—  Multiplica  la  velocidad  de  la  unidad  de  disco  por  5  (load). 

—  Incorpora  los  comandos  del  Dos  Wedge  (comandos  de  disco  simplificados). 

—  Permite  volcados  de  pantalla  texto. 

—  Formatea  en  10  segundos. 

—  Permite  cambiar  el  número  de  periférico. 

—  Comando  “anti-rattie”  (evite  los  ruidos  y  el  desgaste  de  la  unidad). 

—  Convierte  decimal/hexadecimal/binario. 

—  Botón  de  reset,  piloto  de  funcionamiento,  interruptor  on/off. 

Funciona  también  con  128  en  modo  64,  y  con  1570  y  1571. 

COMPATIBLE  CON  98%  DE  LOS  PROGRAMAS 


PRECIO:  4.950  Ptas. 


@5  film 
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Boletín  de  pedido 

PROTEXT  7.950  Ptas . 

LASER  1,0  4.950  ptas. 

□  Contrarrembolso  □  Talón  adjui 

Nombre 


Por  Stefan  Donhauser 


Los  diskettes  vírgenes  son  discos  sin 
utilidad.  Se  podrán  utilizar  cuando 
se  formateen  y  se  creen  las  pistas  y 
los  sectores,  pero  no  antes.  El 
comando  del  floppy  “Ñ”(NEW  =  nuevo) 
necesita  para  ello  un  minuto  y  medio. 

Pero  este  proceso  puede  funcionar  más 
deprisa:  la  mayor  parte  del  tiempo  la  lleva  la 
distribución  de  los  sectores  sobre  las  pistas 
correspondientes.  Pero  como  la  distancia  de 
un  sector  a  otro  es  casi  igual,  no  es  necesario 
calcularla  cada  vez  que  se  va  a  formatear  un 
sector.  Con  este  “formateador  rápido”  es  po¬ 
sible  formatear  por  completo  un  diskette  en 
once  segundos. 

Con  verificación 
y  sin  traqueteo. 

Cuando  quieras  verificar  el  formato  del 
disco  (lo  que  no  es  absolutamente  nece¬ 
sario)  no  necesitas  esperar  ni  19  segundos. 
También  el  traqueteo  que  se  oye  cuando 
formateas  un  disco,  que  acaba  desajustando 
el  cabezal,  ha  sido  sustituido  por  un  pequeño 
“¡click!”. 

Cuando  ejecutas  el  programa  lo  primero 
que  aparece  es  el  mensaje  “FORMATEA¬ 
DOR  V1.0”  y  a  continuación  te  pedirá  el 
nombre  del  disco.  Hay  que  tener  en  cuenta 
que  sólo  puede  tener  16  caracteres,  como  al 
formatear  normalmente;  si  tienen  más  serán 
ignorados.  La  segunda  pregunta  es  el  ID  del 
diskette,  que  se  compone  de  dos  caracteres 
cualesquiera. 

A  las  siguientes  preguntas  se  responde  con 
“S/N”  para  si/no.  Las  respuestas  ya  están 
preparadas  por  defecto,  de  modo  que  la 
mayoría  de  las  veces  sólo  tiene  que  apretarse 
la  tecla  RETURN. 

— Verificar  el  diskette:  Aquí  se  indica  si  se 
tiene  que  realizar  una  comprobación.  Si  tie¬ 
nes  mucha  prisa  y  confías  en  la  calidad  de  tus 
diskettes,  contesta  “n”.  Si  dispones  de  7 
segundos  más  teclea  “s”.  Es  siempre  conve¬ 
niente  utilizar  la  verificación. 

— Rellenar  los  bloques  con  ceros:  Nor¬ 
malmente  los  sectores  del  diskette  se  forma¬ 
tean  con  $01 ,  excepto  el  primer  byte  que  con¬ 


Formatear  un  disco 
con  el  clásico  “N: 
nombre,  id”  tarda 
“sólo”  90  segundos. 

El  programa  que 
tenéis  en  este  artículo 
lo  hace  ocho  veces 
más  rápido:  en  1 1 
segundos. 


C-64 

UNIDAD  DE  DISCO 


serva  el  valor  $4B.  Esto  se  debe  a  un  error  del 
sistema  de  funcionamiento  del  floppy.  Aquí 
se  ha  eliminado  este  bug:  si  lo  deseas,  el  disco 
se  llenará  con  ceros  neutrales.  Además,  el 
formateado  funciona  a  la  misma  velocidad. 

— Formatear  hasta  la  pista  40:  Los  disket¬ 
tes  se  formatean  normalmente  sólo  hasta  la 
pista  35,  pero  también  es  posible  utilizar  las 
pistas  36  a  40.  Esta  posibilidad  va  a  utilzarse 
con  frecuencia  en  algunas  protecciones  con¬ 
tra  copias.  Los  sectores  escondidos  pueden 
ser  grabados  y  leídos  de  un  solo  "golpe” 
inesperado  en  el  cabezal  del  floppy.  Antes  de 
poder  grabarse  nada,  deben  formatearse  las 
pistas  adicionales  (extratracks).  El  forma¬ 
teador  rápido  necesita  entonces  de  dos  a  tres 
segundos  más. 

— Todo  correcto:  Si  has  respondido 
correctamente  a  las  preguntas,  entra  “s”  y  si 
no,  “n”.  En  este  último  caso  aparecerá  el  cur¬ 
sor  de  nuevo  en  la  primera  pregunta,  para 
que  puedas  corregir  los  errores. 

Ahora  aparecerá  el  mensaje  "introduce 
diskette”.  Debes  colocar  un  diskette  virgen  o 
usado  sin  protección  contra  escritura  y  pul¬ 
sar  una  tecla.  El  programa  formateador  será 
transmitido  y  ejecutado  en  la  RAM  del 
floppy.  Tan  pronto  como  sea  posible  leer  el 
mensaje  del  sistema  “00, OK, 00, 00”  el  dis¬ 
kette  podrá  ser  retirado.  En  caso  de  que  apa¬ 
rezca  algún  error  durante  la  verificación  apa¬ 
recerá  el  mensaje  “08,DlSK,pista,00”.  Si  tras 
varios  intentos  no  consigues  fomatearlo, 
entonces  es  señal  de  que  el  diskette  está 
dañado. 

La  última  pregunta  es:  "Formatear  más 
diskettes”  si  tecleas  “s“  volverás  a  empezar,  y 
en  caso  contrario  terminará  el  programa. 

El  programa  está  escrito  enteramente  en 
código  máquina.  El  listado  1  es  un  cargador 
Basic.  Teclea  los  POKEs  que  aparecerán  al 
principio  del  listado  antes  de  comenzar  a 
teclear  o  antes  de  cargarlo  de  cinta  o  disco  si 
lo  introduces  por  partes.  Cuando  lo  hayas 
ejecutado  y  no  tenga  ningún  error,  puedes 
salvar  sólo  el  código  máquina  con: 

POKE  43,1:  POKE44,8 

POKE  45,114:  POKE  46,12 

SAVE  “FORMATE ADOR”,8  ■ 
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COPIADOR  DE  DISCOS 


Por  Florian  Zeiler 


os  programas  copiadores  comunes 
pasan  los  datos  de  un  disco  a 
en  unos  30  minutos.  El  que 
quiera  esperar  tanto  tiempo 
rrirá  a  la  copia  rápida  con  este  programa. 

¡Este  copiador  rápido  consigue  el  tiempo 
soñado  de  100  segundos!  Con  rutinas  turbo, 
el  floppy  trabaja  al  límite  de  su  rendimiento, 
pero  sin  sacrificar  la  seguridad  de  los  datos: 
cada  escritura  será  verificada  y  revisada.  Este 
copiador  rápido  también  es  capaz  de  leer 
(dentro  de  lo  posible)  discos  que  fueron  gra¬ 
bados  con  el  cabezal  desajustado.  Se  copia¬ 
rán  sin  traqueteo  y  sin  errores  de  lectura  en 
un  disco  normal.  Además,  el  programa 
puede  comparar  dos  discos  byte  por  byte  y 
comprobar  los  errores  de  un  disco  cualquiera. 

La  primera  línea  de  la  pantalla  se  utiliza 
para  seleccionar  las  opciones  del  menú,  con 
las  teclas  del  cursor  (arriba  para  la  izquierda 
y  derecha  para  la  derecha)  y  la  tecla 
RETURN.  La  opción  elegida  aparece  en 
inverso.  Los  puntos  de  este  menú  son: 

DIRECTORIO  -  Muestra  en  pantalla  la 
lista  de  programas  del  disco  que  está  en  el 
drive.  Se  muestra  la  lista  hasta  que  se  llena  la 
pantalla  o  se  ha  terminado  la  lista.  Se  puede 
seguir  pulsando  ESPACIO  o  volver  al  menú 
con  STOP. 

BACKUP  -  Sirve  para  hacer  un  backup 
(copia)  de  un  disco  a  otro.  Tras  pulsar 
RETURN  sonará  un  gong  y  se  “encenderá” 
un  disco  (ver  pantalla)  con  la  etiqueta 
“ORIGEN”.  Entonces  debes  colocar  el  disco 
original.  También  se  indica  en  la  pantalla  el 
PASO  en  el  que  estás  y  el  TIEMPO  que  llevas  de  copia.  Cuando 
pulses  una  tecla  se  pondrá  en  marcha  el  drive  y  comenzará  la  lectura 
para  la  copia.  En  caso  de  que  el  diskette  no  se  encontrase  en  la  unidad 
de  discos  o  no  estuviera  formateado,  se  interrumpiría  el  proceso  de 
copia. 

Cuando  termina  la  primera  “pasada”  de  lectura  aparece  en  la  pan¬ 
talla  un  gráfico  que  muestra  todos  los  sectores  del  diskette.  Un  sector 
libre  de  errores  se  marcará  con  un  punto  (“.")  y  un  sector  de  errores 
aparecerá  marcado  con  el  número  de  error.  “0”  significa  error  de 
lectura  20  y  “3”  error  de  lectura  23.  Mira  el  manual  de  floppy  para  ver 
su  significado.  Los  sectores  que  tengan  errores  serán  reemplazados 
por  sectores  libres. 

Del  ORIGEN  al  DESTINO. 

Tras  cada  paso  de  lectura  tienes  que 
introducir  el  disco  destino.  El  copiador 
te  lo  indica  “encendiendo”  el  disco  con  la 
inscripción  “DESTINO”.  El  proceso  de 
copia  pueder  ser  interrumpido  a  cada 
pulsando  la  tecla  STOP.  En  la  grabación,  el 
disco  destino  será  primeramente  formateado, 
después  escrito  y  finalmente  verificado.  En 


caso  de  que  aparezca  un  error  se  emprende¬ 
rán  aún  otros  tres  intentos  de  escritura.  Si  el 
diskette  continúa  sin  dejarse  formatear  apa¬ 
recerá  el  mensaje  ERROR  DE  GRABA¬ 
CION  EN  PISTA  XX,  donde  XX  contiene  el 
número  de  pista  que  está  mal.  Si  el  disco 
destino  que  está  en  funcionamiento  está  pro¬ 
tegido  contra  escritura,  el  proceso  se  inte¬ 
rrumpirá.  Durante  la  copia  se  desconecta  la 
pantalla  para  excluir  interrupciones  del  pro¬ 
grama  mediante  interrupciones  de  memoria 
del  videochip.  Para  controlar  el  proceso  de 
copia  se  cambia  el  color  de  la  pantalla  en 
cada  cambio  de  pista. 

VERIFICAR  -  Compara  dos  discos.  El 
manejo  es  igual  que  en  la  función  backup, 
sólo  que  aquí  no  se  va  a  copiar  un  disco 
sobre  otro,  sino  que  lo  único  que  se  hace  es 
comparar  uno  con  otro.  En  el  verify  también 
se  indica  en  el  disco  destino  un  resumen  de 
todos  los  sectores  leídos.  Además,  una  barra 
(“/  ”)  significa  que  el  sector  es  idéntico  al  ori¬ 
ginal  y  un  “3”  que  difiere  en  algo.  Otros 
números  significan,  como  en  el  backup,  que 
el  disco  de  lectura  tiene  algunos  errores.  Para 
diferenciarlo  de  la  función  backup  se  indican 
los  pasos  como  4.5  y  6. 

Un  truco  que  ahorra  trabajo. 

En  la  verificación  se  ahorra  trabajo  con  el 
siguiente  procedimiento: 

PASO  4:  Leer  disco  A  y  comparar  con  B 
PASO  5:  Leer  disco  B  y  comparar  con  A 
PASO  6:  Leer  disco  A  y  comparar  con  B 
En  vez  de  tener  que  cambiar  seis  veces  los  discos  sólo  hacen  falta 
cuatro  cambios.  El  orden  o  sucesión  en  que  van  a  ser  leídos  los 
diskettes  no  está  fijado  del  todo,  por  eso  no  se  utilizan  los  símbolos 
“ORIGEN”  y  “DESTINO”  como  en  el  backup.  Verificar  dos  discos 
completamente  dura  aproximadamente  un  minuto  quince  segundos. 
El  ID  de  los  dos  discos  no  tiene  por  qué  coincidir. 

COMPROBAR  -  Esta  opción  sirve  para  hacerle  un  chequeo  a  un 
disco.  Cada  bloque  será  leído  y  se  comprobarán  los  errores.  Lo  que  se 
conserva  es  el  contenido  del  diskette.  Finalmente,  se  presentará  una 
vista  general  de  todos  los  sectores  del  disco,  de  forma  similar  a  la 
opción  “backup”.  Todos  los  sectores  a  la  vez,  la  comprobación  tarda 
aproximadamente  medio  minuto. 

COMANDO  -  Con  esta  función  se  pueden 
enviar  comandos  a  la  unidad  de  discos. 
Teclea  el  comando  y  pulsa  RETURN.  El 
ordenador  espera  hasta  que  se  ha  terminado 
la  ejecución  y  entonces  indica  el  mensaje  del 
canal  de  errores.  Ejemplo:  Borrar  progra¬ 
mas:  S:  PROGRAMA  1,  PROGRAMA  2: 
Inicializar  un  disco:  I:  Formatear  un  disco: 
N:  NOMBRE.ID.  Tras  la  ejecución  de  un 
BACKUP  o  de  las  opciones  de  verificación  y 
comprobación  conviene  esperar  un  par  de 


Rápido,  más  rápido, 
rapidísimo.  Este 
copiador  ofrece 
nuevos  horizontes: 
puede  copiar  discos 
completamente  llenos 
en  100  segundos  y 
con  verificación. 
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-ígundos  antes  de  elegir  otra  opción,  porque  si  no  puede  colgarse  el 
r-ograma.  y  tendrías  que  pulsar  RUN/STOP-RESTORE.  Durante 
a  copia  de  discos  deben  desconectarse  todos  los  periféricos  que 
estén  conectados  al  BUS  (impresoras,  plotter).  El  programa  puede 
ser  abandonado  sólo  mediante  RUN/STOP/RESTORE  o  con  un 


Así  funciona. 

Ai  principio  de  un  backup  es  muy  simple:  leer  los  datos  del  disco 
A.  cambiar  de  disco,  escribir  los  datos  en  el  disco  B.  En  el 
ordenador  hay  sitio  para  nada  más  que  un  tercio  del  diskette  de 
modo  que  se  necesitan  tres  pasos.  Como  en  un  diskette  caben  apro- 
\:madamente  170.000  bytes  y  la  velocidad  de  transminsión  es  nor¬ 
malmente  300  bytes/ segundo,  sólo  la  lectura  de  todo  el  diskette 
dura  ya  10  minutos.  Hay  que  utilizar  entonces  rutinas  de  transmi¬ 
sión  más  rápidas.  Pero  ya  que  también  las  rutinas  del  sistema  están 
escritas  de  forma  lenta  y  complicada,  con  esta  aceleración  sólo  se 


consigue  el  doble  de  velocidad.  Hay  que  escribir  rutinas  propias 
para  leer  y  escribir  sectores  si  se  quiere  lograr  una  velocidad  acepta¬ 
ble.  El  programa  principal  de  ordenador  transmite  las  rutinas  y 
permite  que  se  logre  la  máxima  velocidad. 

Copia  blanca  -  sólo  50  segundos. 

Además,  se  ahorra  tiempo  si  los  datos  transmitidos  están  en 
blanco,  ya  que  en  vez  de  escribirse  solamente  se  formatea  la 
pista.  El  copiador  rápido  reconoce  el  primer  byte  ($4B)  y  el  resto  de 
los  bytes  ($01)  que  indican  pista  vacia.  Por  eso  copiar  un  diskette  en 
blanco  tarda  solamente  50  segundos. 

Teclea  el  cargador  Basic  del  programa  (listado  1).  Si  quieres  gra¬ 
bar  lo  que  es  solamente  el  código  máquina  teclea  estas  líneas  des¬ 
pués  de  haber  ejecutado  el  cargador: 

POKE43.1:  POKE44.8 
POKE45,0:  POKE46,24 
SAVE  “BLITZCOPY”,8 

Para  utilizarlo  después  sólo  tienes  que  hacer  LOAD  y  RUN. 
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Por  Peter  Falke 


El  nuevo  comando  FIND  para  el 
128  se  activa  con  SYS  4864 
($1300)  en  modo  directo.  La  inicia- 
lización  con  SYS  sólo  es  nece¬ 
saria  después  de  una  conexión  o  después  de 
un  Reset.  Entonces  es  posible  utilizar  el 
jomando  FIND  en  modo  directo.  La  sintaxis 
corresponde  exactamente  con  la  del  co¬ 
mando  LIST. 

FIND  realiza  la  búsqueda  en  todo  el 
programa. 

FIND  — 2300  busca  hasta  la  línea  2300. 
FIND  1740—  busca  desde  la  1740  en  ade- 

FIND  740 — 9550  busca  desde  la  740  hasta 
la  9550. 

FIND  600  busca  en  la  linea  600. 

Si  se  sobrepasa  el  máximo  permitido 
1 63999)  o  además  de  los  números  de  línea  se 
introducen  otros  valores,  aparecerá  un  men¬ 
saje  de  error.  Si  la  instrucción  se  introduce 
correctamente  aparecerá  el  siguiente  “TEX¬ 
TO  A  ENCONTRAR”:”.  El  texto  de  bús¬ 
queda  puede  ser  una  combinación  cual- 


E1  usuario  del  C-128 
dispone  del  Basic  7.0 
con  muchos 
comandos  nuevos.  De 
todas  formas,  los 
programadores  en 
Basic  echan  de  menos 
una  función  FIND, 
mediante  la  cual  sea 
posible  buscar 
comandos  Basic, 
cadenas  de  texto  o 
una  combinación  de 
ambas.  Mediante  un 
corto  programa  en 
código  máquina  es 
posible  llenar  este 
hueco. 


quiera  de  comandos  Basic,  variables  y  cade¬ 
nas  de  texto,  teniendo  en  cuenta  que  el  C-128 
sólo  admite  líneas  con  un  máximo  de  160 
caracteres.  Están  permitidas  las  abreviaturas 
de  los  comandos  Basic. 

Búsqueda  de  Tokens 

Para  hacer  la  búsqueda  de  la  instrucción 
PRINT  puedes  introducir  PRINT  o  ?.  Si 
buscas  una  cadena  de  texto  que  pueda  con¬ 
fundirse  con  una  palabra  Basic,  has  de  intro¬ 
ducir  el  texto  entre  comillas.  Si  quieres  bus¬ 
car  CORAL  el  ordenador  va  a  buscar  “C” 
OR  “AL”.  La  forma  correcta  de  indicarlo 
sería  “CORAL”. 

La  inicialización  del  comando  FIND  se 
realiza  cambiando  el  vector  de  error  ($0300) 
a  la  rutina  FIND.  Inicialmente  el  comando  se 
detecta  como  un  error,  pero  es  evaluado  por 
la  rutina  como  nuevo  comando  (o  se  bifurca 
a  la  rutina  de  error  si  no  se  trata  realmente  de 
FIND). 

El  listado  1  es  el  cargador  Basic  del  pro¬ 
grama.  Ejecútalo  y  haz  SYS  4864  para  conec¬ 
tar  el  nuevo  comando.  ■ 
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280  DATA  82,65,82,58,0,32,147  .37 

290  DATA  79,232,134,61,32,13,67  .153 

300  DATA  162,255,160,0,232,189,0  .9 

310  DATA  2,240,9,201,34,240,246  .17 

320  DATA  145,61,200,208,241,145,61  .215 

330  DATA  132,251,165,22,133,252,165  .161 
340  DATA  23,133,253,160,2,32,236  .167 

350  DATA  66,133,22,170,200,32,236  .175 

360  DATA. 66, 133,23, 197,253,208,4  .123 

370  DATA  228,252,240,2,176,61,162  .29 

380  DATA  0,165,251,133,250,200,32  .197 

390  DATA  236,66,240,33,201,34,240  .177 

400  DATA  246,221,0,2,240,8,224  .9 

410  DATA  0,240,231,136,76,160,19  .131 

420  DATA  232,198,250,208,228,32,229  .251 
430  DATA  80,169,145,32,12,86,76  .9 

440  DATA  136,19,160,0,32,236,66  .213 

450  DATA  170,200,32,236,66,134,97  .5 

460  DATA  133, 9B, 208, 171, 162, 255, 76  .95 

470  DATA  63,77  .187 
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Para  la  programación  rige  lo  mismo 
que  para  otras  actividades  creati¬ 
vas:  Son  necesarios  un  10%  de  inspi¬ 
ración  y  un  90%  de  "transpiración” 
Para  conseguir  una  buena  relación  entre  las 
dos  cosas,  existen  utilitarios  como  éste:  Pone 
a  disposición  del  usuario  una  serie  de  útiles 
funciones  de  ayuda.  Los  programas  en  Basic 
o  en  lenguaje  máquina  se  dejan  redactar  con 
el  confort  de  un  procesador  de  textos.  El 
floppy  se  controla  con  menor  cantidad  de 
reglas.  Los  comandos  de  prueba  ayudan  en  la 
búsqueda  de  errores  y  el  rastreo  de  progra¬ 
mas.  El  producto  final  puede  ser  finalmente 


Tres  tipos  de  funcionamiento  que  taCl) 

Estos  nuevos  comandos  son  solamente  una  t  re»  Vi 

ampliación  del  Basic  2.0y  no  son  compa-  ** u 

tibies,  en  la  mayoría  de  los  casos,  con  otras 
ampliaciones.  Para  la  descripción  de  los 
comandos  se  han  utilizado  las  siguientes  con¬ 
venciones:  Los  parámetros  se  señalan  con 
expresiones  entre  paréntesis  (los  paréntesis 
no  son  necesarios)  y  generalmente  han  de  ser 
separados  por  comas.  Los  parámetros  que  no 
vayan  precedidos  de  coma  en  el  ejemplo  pue¬ 
den  ser  omitidos,  pero  de  lo  contrario  son 
obligatorios.  En  algunos  casos  no  se  admite 
que  estos  parámetros  vayan  sin  la  coma,  y 
aparece  un  7SYNTAX  ERROR  llamando  la 
atención  sobre  ello.  Tienes  los  siguientes  ■ 
modos  de  funcionamiento,  que  además  son 
comandos: 

BASIC.  Conecta  el  modo  Basic,  que  es  el  modo  en  el  que  arranca  la 
ampliación.  Aparece  el  mensaje  “BASIC”  en  vez  de  “READY”  como 
es  habitual.  En  este  modo  se  pueden  utilizar  todos  los  comandos. 

SRC.  Conecta  el  modo  SOL’RCE  (FUENTE).  Todas  las  lineas  de 
comandos  serán  recibidas  en  la  memoria  del  ordenador  como  suce¬ 
siones  de  códigos  ASCII,  mayúsculas  y  minúsculas  incluidas.  Este  es 
el  modo  ideal  para  introducir  programas  assembler  u  otros  textos; 
aquí  no  se  reconocen  las  palabras  clave  Basic,  por  lo  que  no  se  puede 
utilizar  este  modo  para  teclear  un  programa  en  este  lenguaje. 


Por  Jurgen  Laub 

Programar  lleva 
consigo  mucho 
trabajo  manual: 
buscar  y  sustituir, 
renumerar  y 
desplazar.  Por  eso,  y 
para  ahorrar  tiempo, 
es  conveniente  tener 
algunas  herramientas 
que  faciliten  este 
trabajo. 


ayuda  mediante  POKE  1,53. 

Comandos  de  edición 

DEL  (zona).  Borra  del  programa  los  nú¬ 
meros  de  línea  de  la  zona  señalada.  Si  tecleas 
sólo  DEL  se  produce  el  mismo  efecto  que 
con  NEW.  Este  comando  no  puede  invertirse 
.  con  OLD. 

(ZONA):  Aquí  y  en  otros  comandos  una 
indicación  (zona)  significa  señalar  una  línea  o 
líneas  a  las  que  va  a  afectar  el  comando. 
Tiene  las  mismas  posibilidades  que  LIST; 


TEXT.  Conecta  el  modo  texto.  Aquí  no  se  ven  los  números  de  línea  lír 
cuando  tecleas  LIST.  No  aparecen  mensajes  como  “READY”,  lír 
"BASIC”  o  “SOURCE”  Sólo  se  reconoce  este  modo  por  el  cursor  es 
intermitente.  Con  este  sistema  se  convierte  el  ordenador  en  un  simple,  l'i 
procesador,  siendo  especialmente  adecuado  para  la  representación  de 
textos,  los  cuales  han  sido  redactados  anteriormente  con  SOURCE,  ai 
X.  Vuelve  a  conectar  el  sistema  de  funcio¬ 
namiento  original  (Basic  2.0).  Esto  es  necesa¬ 
rio  para  cuando  quieras  ejecutar  programas  - 

en  lenguaje  máquina  que  utilicen  las  mismas 

posiciones  de  memoria  que  esta  ampliación.  p  ¿a 

Mientras  no  modifiques  estas  posiciones 

puedes  volver  a  conectar  los  comandos  de  _ 


uniente  tener  120-180:  Todas  las  líneas  entre  120  y  180 
incluidas. 

herramientas  1500—:  De  la  línea  1500  en  adelante 
• «  •  ,  —9000:  Hasta  la  linea  9000 

iClllten  este  12000:  Sólo  la  línea  12000 

,  i_  •  _  Ninguna  indicación:  Todas  las  líneas. 

d.Ud.J  U .  OLD.  Recupera  un  programa  borrado  con 

DEL,  NEW  o  RESET. 

RENUM  (zona)  (nuevo  comienzo),  (in¬ 
cremento).  Renumera  un  programa. 

MOVE  (zona)  (nuevo  comienzo)  (in¬ 
cremento) 

COPY  (zona)  (nuevo  comienzo)  (in¬ 
cremento) 

Estos  comandos  renumeran  los  números 
de  linea  indicados  bajo  la  zona,  de  tal  forma 
que  van  a  ser  situados  nuevamente  en  el  pro¬ 
grama  con  el  incremento  entre  líneas 
deseado,  a  partir  de  la  línea  que  se  indica 
■  como  “nuevo  comienzo”.  Con  ello  no  se 
cambia  la  estructura  del  programa,  es  decir, 
la  sucesión  de  las  líneas  del  programa.  Con 
:a  la  MOVE  y  COPY  es  posible  transportar  zonas  del  programa  o  líneas 
>mo  sueltas.  La  única  condición  es  que  a  partir  del  nuevo  comienzo  hay 
;.  tanto  espacio  libre  como  el  número  de  líneas  que  se  van  a  transferir  o 
copiar  teniendo  en  cuenta  el  incremento  (aparece  en  la  pantalla  como 
s  de  •‘sj/2”)  dividiéndolo  sucesivamente  por  dos.  Si  esto  tampoco  resulta, 
tees  aParece  el  mensaje  “NO!”  en  la  pantalla  y  los  números  de  línea  origi¬ 
nales  se  borran,  pero  no  en  COPY. 

“  °.s’  Todos  los  comandos  de  salto  (GOTOs,  GOSUBs,  1F...THEN,  etc.) 
Jede  van  a  ajustarse  automáticamente  a  la  nueva  estructura  del  programa, 
es  decir,  que  se  recalculan  los  saltos,  excepto  al  hacer  COPY.  Si  la 
ínea  línea  destino  (adonde  va  el  salto)  no  existe,  se  sustituye  ese  número  de 
>Y”,  línea  “falso”  por  una  serie  de  “XXXXX”.  Los  valores  por  defecto  para 
rsor  estos  comandos  son:  10  para  el  inicio  y  10  para  el  incremento  entre 
lple,  líneas. 

n  de  LINE  (número  de  línea)  (incremento).  Genera  números  de  línea 
CE.  automáticos  según  se  va  tecleando  el  programa  para  que  sea  más  fácil 
la  introducción  de  líneas.  Este  comando  es  el 
equivalente  al  “AUTO”  de  otras  ampliacio- 

_  nes.  En  caso  de  que  el  número  de  línea  gene- 

i  rado  coincida  con  un  número  de  línea  exis- 
_  , ,  |  tente  aparece  un  signo  “!”  antes  del  número 

V-04  de  línea,  como  advertencia.  Para  salir  de  este 

comando  basta  con  teclear  RETURN  sobre 
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a  iínea  en  la  que  te  encuentres.  Si  quieres  pasar  por  alto  una  línea,  sin 
torrarla,  teclea  “!"  y  RETURN.  El  contenido  permanecerá  inalte- 
*ado.  Por  defecto  se  toma  10  para  la  primera  línea  y  10  para  el 
■cremento. 

FIND  (zona),  (carácter)  (cadena)  (carácter)  (cantidad).  Busca  en  la 
zona  del  programa  especificada  una  secuencia  de  caracteres  (cadena). 
Esta  cadena  ha  de  ir  situada  entre  dos  caracteres  cualesquiera,  que 
Ean  de  ser  iguales.  Ejemplo:  FIND  10-200  /HOLA /  o  FIND 
*PRINT"  o  FIND  *A1*,2.  El  primer  carácter  se  interpreta  como  límite 
I  se  considera  la  cadena  como  los  caracteres  que  hay  hasta  el  carácter 
ce  cierre.  Aparecen  listadas  las  líneas  donde  se  encuentra  la  cadena 
Coscada.  Es  opcional  indicar  el  número  de  veces  que  quieres  que 
busque. 

Atención:  En  el  modo  Basic  se  reconocen  todas  las  palabras  tradu¬ 
cidas  a  código  de  intérprete  (tokens),  así  como  cadenas  de  caracteres 
ASCII.  Hay  que  prestar  atención  al  colocar  el  carácter  delimitador 

el  que  va  al  principio  y  al  final  de  la  palabra —  ya  que  algunos  de 
estos  se  transforman  en  tokens:  son  algunos  de  ellos.  Un 

comando  como  FIND  /REM/  daría  SYNTAX  ERROR,  ya  que  el 
segundo  carácter  no  sería  reconocido,  al  estar  detrás  de  un  REM. 
Otra  dificultad  es  que  comandos  como  PR1NT  y  PRINT#  tienen 
tokens  diferentes.  En  modo  SOURCE  se  buscan  siempre  códigos 
ASCII,  no  como  en  modo  BASIC. 

CHANGE  (zona),  (carácter)  (cadena)  (carácter)  (carácter2)  (nueva 
cadena)  (carácter2)  (número  de  veces).  Sirve  para  reemplazar  cadenas 
de  caracteres.  Funciona  igual  que  el  comando  FIND.  Ejemplo: 
CHANGE  /HOLA/*ADIOS*,5  reemplaza  los  cinco  primeros 
'HOLA”  que  encuentre  por  “ADIOS”.  Algunos  usos  especiales: 
CHANGE  /  PEPE/  /  /  borra  todos  los  “PEPE”  que  encuentra,  aunque 
si  está  sólo  en  una  línea,  esa  línea  no  será  borrada.  Quedará  como 
'línea  fantasma”  por  si  hay  algún  GOTO  apuntando  a  ella.  CHANGE 

AJA!/  no  tiene  sentido  y  da  SYNTAX  ERROR. 

Programas  comprimidos 

COMP.  Comprime  el  programa  situado  en  la  memoria  de  la  forma 
más  corta  posible,  pero  sin  quitar  los  REMs,  estos  se  deben  eli¬ 
minar  con  el  comando  KILL  (ver  más  abajo).  A  pesar  de  que  el  C-64 
tiene  suficiente  memoria  para  la  mayoría  de  las  aplicaciones  este 
comando  es  muy  útil  para  reducir  los  tiempos  de  carga.  Además,  los 
programas  se  aceleran.  Conviene  guardar  siempre  una  copia  del  pro¬ 
grama  original,  porque  una  vez  utilizado  COMP,  el  programa  no 
puede  descomprimirse”,  y  editar  este  programa  es  prácticamente  impo¬ 
sible,  pues  una  línea  del  programa  podría  tener  hasta  10  líneas  de  panta¬ 
lla.  ¡COMP  sólo  puede  utilizarse  con  programas  Basic! 

KILL  (zona).  Elimina  todos  los  comentarios  REM  que  encuentre 
en  la  zona  especificada  del  programa.  Junto  con  el  comando  COMP 
sirve  para  aprovechar  mejor  la  memoria. 

MERGE  “nombre”  (periférico).  Mezcla  líneas  de  un  programa  en 
disco  o  cinta  con  el  programa  que  esté  en  la  memoria.  Los  nuevos 
números  de  línea  se  mezclan  con  los  del  programa  original.  Si  una 
línea  ya  existe,  será  sustituida  por  la  nueva.  Este  comando  es  espe¬ 
cialmente  útil  para  añadir  cabeceras  a  tus  programas  (mira  también  el 
comando  PUT).  La  abreviatura  para  utilizarlo  con  los  comandos  de 
disco  es  “&” 

Guardar  líneas  de  programa 

FUT  (zona)  “nombre”  (periférico).  Sirve  para  salvar  en  disco  o  cin¬ 
ta  una  zona  de  líneas  del  programa  que  está  en  la  memoria.  La 
parte  que  se  haya  salvado  podrá  ser  luego  cargada  con  MERGE  o 
LOAD  como  un  programa  Basic  normal. 

CHK  (zona)  “nombre”  (periférico).  Compara  las  líneas  del  pro¬ 
grama  en  memoria  con  las  del  programa  indicado  como  “nombre”.  Si 
las  líneas  son  iguales  aparece  el  mensaje  OK  y  si  no  lo  son,  aparecerá 
VERIFY  ERROR  IN  LINE  XXX”  y  se  interrumpirá  la  verificación 
del  programa,  es  decir,  que  si  trabajas  en  cinta,  ésta  no  tiene  por  qué 
quedar  exactamente  al  final  del  programa.  Para  esto  debe  usarse  el 
comando  VERIFY. 

Comandos  de  disco 

$  (número  de  drive).  Muestra  el  directorio  del  disco  que  esté  en  la  uni¬ 
dad.  No  se  borra  el  programa  que  esté  en  la  memoria,  “número  de 
drive”  puede  ser  un  número  de  8  a  1 1,  por  defecto  se  toma  el  8.  Si 
después  del  “$”  se  indica  un  nombre  se  cargará  ese  programa  en  la 
memoria. 

/  (número  de  drive), “nombre”.  Sirve  para  cargar  un  programa  del 


disco.  Si  no  se  indica  nombre  se  comporta  igual  que  “$”.  También 
puede  cargarse  el  directorio  con  “/$”/.  La  coma  es  necesaria  sólo  si  el 
nombre  del  programa  comienza  por  una  cifra,  como  pasa  con  los 
demás  comandos  de  disco. 

@  (número  de  drive)  “comando”.  Lee  el  canal  de  errores  y  muestra 
el  mensaje  de  error  en  la  pantalla.  Si  se  indica  un  comando,  este  se 
enviará  a  la  unidad.  Para  más  información  sobre  todos  los  comandos 
de  disco  mira  el  manual  de  tu  unidad. 

•*-  (número  de  drive)  (zona),  “nombre”.  Salva  una  zona  del  pro¬ 
grama  o  el  programa  completo  en  disco.  Por  defecto  se  salva  todo  el 
programa  en  el  dirve  8,  tecleando  sólo  “nombre”, 
pueden  utilizar  expresiones  como  @8,“R:“+N$+CHR$(67)+”= 
“+N2$+”.OLD”. 


- (número  de  drive)  (zona),“nombre”.  Es  la  forma  abreviada  del 

comando  CHK,  con  la  sintaxis  un  poco  cambiada. 

&  (número  de  drive),“nombre”.  Es  la  forma  abreviada  del  comando 
MERGE. 


#  (antiguo  número)  (nuevo  número).  Cambia  el  número  de  perifé¬ 
rico  de  la  unidad.  Por  defecto  de  hace  de  8  a  9. 

ante  cualquier  comando  de  disco  indica  que  se  deben  admitir  todo 
tipo  de  comandos  de  cadena  para  la  expresión  que  se  va  a  utilizar. 
Normalmente  un  comando  de  disco  se  interpreta  sólo  como  una  suce¬ 
sión  de  códigos  ASCII,  sin  embargo,  colocando  antes  un  apostrofe  se 
pueden  utilizar  expresiones  como  @8,“R:“+N$CHR$(67)+”= 
“+N2S+”.OLD” 


+  (número  de  drive).  Realiza  el  cambio  de  pista  más  rápidamente. 
—  (número  de  drive).  Realiza  el  cambio  de  pista  a  velocidad 
normal. 

Comandos  de  prueba 


TRACE.  Conecta  el  modo  TRACE  (seguimiento).  Durante  la  eje¬ 
cución  del  programa  se  indica  en  la  pantalla  el  número  de  línea  que 
se  está  ejecutando  en  ese  momento.  Pulsando  la  tecla  CTRL  la  salida 
del  programa  se  retarda  aproximadamente  a  dos  comandos  por 
segundo.  Pulsando  la  tecla  commodore  se  conecta  el  modo  paso  a 
paso.  Aquí  se  ejecuta  el  siguiente  paso  cuando  se  pulsa  cualquier  tecla. 
Para  salir  de  este  modo  basta  con  volver  a  pulsar  la  tecla  commodore. 
También  puedes  pulsar  en  este  modo  la  tecla  SHIFT  para  ejecutar 
varios  pasos  rápidamente.  Si  utilizas  el  comando  TRACEH  se 
conecta  directamente  el  modo  paso  a  paso.  El  color  de  la  ventana 
puede  modificarse  pulsando  la  tecla 

RETRACE.  Muestra  de  nuevo  la  última  pantalla  TRACE. 

CLEAR.  Borra  el  contenido  de  la  pantalla  TRACE. 

UNTRACE.  Desconecta  el  modo  TRACE. 

Los  dos  comandos  TRACE  y  UNTRACE  pueden  ser  insertados  en 
un  programa  en  modo  SLOW  (ver  más  abajo)  como  comandos  nor¬ 
males.  Sólo  se  señalarán  los  números  de  las  líneas  que  se  encuentren 
después  de  TRACE  y  antes  de  UNTRACE. 

SLOW.  Después  de  conectar  este  modo  se  reconocen  todos  los 
comandos  de  la  ampliación  y  pueden  ser  ejecutados  dentro  de  un 
programa.  Hay  que  tener  en  cuenta  que  la  mayoría  de  los  comandos 
saltan  al  modo  READY  después  de  su  ejecución.  En  el  modo  SLOW 
la  ejecución  de  los  programas  se  retarda  alrededor  de  un  40ri 

FAST.  Levanta  el  comando  SLOW.  En  este  modo  los  programas 
Basic  se  retardan  sólo  un  0,2%.  Los  comandos  de  esta  ampliación  no 
se  reconocerán  si  es  que  aparecen  en  un  programa. 

LAST.  Muestra  el  mensaje  de  error  emitido  en  último  lugar  con  el 
número  de  línea  en  el  que  ocurrió.  De  este  modo  pueden  reconocerse 
errores  tras  pulsar  STOP/  RESTORE  cuando  estás  en  alta  resolución 
o  trabajando  con  caracteres  definidos  por  el  usuario. 

DUMP  (zona)  (I  N  #  %  $).  Hace  un  volcado  del  contenido  en  ese 
momento  de  todas  las  variables  que  el  ordenador  tiene  en  la  memoria. 
Las  variables  aparecen  por  este  orden: 

1)  Variables  sin  índice 

2)  Variables  con  índice  (matrices)  ordenadas  por: 

a)  Variables  de  coma  flotante  (A(14),X(2)) 

b)  Variables  enteras  (A%(1),XX%(4)) 

c)  Variables  de  cadena  (C$(I0).CR$(1)). 

La  emisión  por  pantalla  se  detendrá  cada  vez  que  se  llene  la  pantalla 
y  seguirá  cuando  pulses  una  tecla  (aparece  el  mensaje  “<TECLA>” 
cada  vez  que  esto  sucede).  Las  variables  cuyo  contenido  sea  cero  o  una 
cadena  vacía  no  serán  indicadas.  Se  puede  seleccionar  el  tipo  de 
variables  que  quieres  que  aparezcan  escribiendo  un  carácter  tras  la 
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I:  Sólo  variables  con  índice. 

N:  Sólo  variables  sin  índice. 

#:  Sólo  variables  de  coma  flotante. 
rr:  Sólo  variables  enteras. 

S:  Sólo  variables  de  cadena. 

Hay  que  dar  siempre  en  primer  lugar  1  o  N  si  se  quiere  alguna  de  las 
dos.  y  a  continuación  los  demás  tipos.  #,  %  y  $•  La  primera  indicación 
ha  de  ir  separada  por  una  coma.  Cuando  modificas  una  línea  del 
programa,  todas  las  variables  se  borran  v  por  eso  no  pueden  listarse 
con  Dl'MP. 

Referencias  cruzadas  y  listados 

DOCl'  (zona)  (P  V  S  11).  Lista  y  documenta  programas  Basic.  Apa-  , 
recen  los  siguientes  resultados: 

P  Listado  claro  del  programa,  dividiendo  las  líneas  que  contie¬ 
nen  sentencias  separadas  por  dos  puntos. 

V  —  Tabla  de  variables  empleadas  en  el  programa  y  de  los  lugares 
en  que  aparecen  en  el  listado. 

S  Tabla  de  saltos  GOTO,  número  de  línea  y  lugar/ es  desde  los 
que  se  les  llama. 

U  —  Tabla  de  los  subprogramas  utilizados  (GOSUB-RETURN). 
En  primer  lugar  aparece  la  dirección  inicio-final  de  la  rutina  y  a  su 
derecha  el  número  números  de  línea  desde  los  que  se  la  llama. 

Una  interrogación  (“?")  al  lado  de  un  número  de  línea  indica  que 
esa  linea  a  la  que  se  hace  referencia  no  existe.  El  listado  y/ o  tablas  se 
elaboran  solamente  para  una  zona  del  programa.  Por  omisión  se  hace 
para  el  programa  entero.  Al  ejecutar  este  comando  se  hacen  las 
siguientes  preguntas: 

— Emisión  del  listado  por  pantalla  o  impresora.  En  caso  de  selec¬ 
cionar  impresora  se  pregunta  el  número  de  periférico  (4  ó  5)  y  la 
dirección  secundaria  a  utilizar  (normalmente  0) 

—Longitud  de  las  líneas  (entre  20-80) 

—  Interpretación  de  los  códigos  de  los  listados  (para  que  aparezcan 
los  movimientos  del  cursor  como  [R1GHT],  [LEFT],  etc.  y  no  como 
caracteres  gráficos  invertidos). 

Cómo  teclear  el  programa 

Este  utilitario  está  escrito  totalmente  en  código  máquina.  Teclea  los 
dos  listados  y  grábalos  uno  a  continuación  del  otro.  Cuando  eje¬ 
cutes  el  primero  y  compruebes  que  están  todos  los  datas  bien,  te 
pedirá  que  cargues  y  ejecutes  el  segundo.  Haz  lo  mismo  con  esta 
segunda  parte  y  cuando  hayas  terminado  haz  los  siguientes  POKEs 
para  grabarlo  en  una  sola  parte: 

POKE  43,l:POKE  44,8 

POKE  45,37:POKE  46,41 

SAVE  “NOMBRE",8  (ó  “,1"  si  tienes  cinta). 

Ahora  puedes  cargarlo  en  cualquier  momento  con  LOAD  “ÑOM- 
BRE'\8  ó  .1  y  ejecutarlo  con  RUN.  Se  transferirá  el  programa  a  la 
zona  $8000  a  S9EF5,  se  copiará  la  ROM  a  RAM  y  se  harán  algunas 
modificaciones.  La  ampliación  arrancará  en  modo  BASIC  y  estará 
lista  para  funcionar.  ■ 
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BASIC 

Lista  de  comandos 

/ 

SRC 

<s> 

TEXT 

X 

t 

DEL 

& 

OLD 

# 

RENIM 

MOVE 

+ 

COPY 

_ 

LINE 

TRACE 

FIND 

TRACEH 

CHANGE 

RETRACE 

COMP 

CLEAR 

KILL 

UNTRACE 

MERGE 

SLOW 

PUT 

FAST 

CHK 

DUMP 

S 

DOCU 
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ATENCION!  ANTES  DE  CARSAR  O  TECLEAR 
ESTOS  LISTADOS,  HAZ  LOS  SIGUIENTES 
POKESi 


P0KE44 , 4B i P0KE4S*256 , 0 . NEW 
PROGRAMA i  TOOL. 1  LISTADO 

1  A=2049 

2  B=¿.54B 

3  POR  I «  ATOB  i  G0SUB6 1  S“S+V  t  POKE I ,  V 

4  NEXT i READT : IFS<  >TTHENPRINT" CRVSON  , 
I ERROR  EN  DATAS! 

5  PRI NT “CARGA  LA  SEGUNDA  PARTE "lEND  . 

6  V=0iREADH*iBOSUB7iV-V*lí.iH*-hID*(  . 


VENTANAS  DE  COLOR 

Por  Thilo  von  Stillfried 


Con  el  programa  BLOCKMAR- 
KER  se  pueden  poner  en  relieve  de 
forma  óptica,  bloques  de  caracte¬ 
res  y  de  texto  sobre  la  pantalla  de 
datos.  Ya  que  los  números  de  línea  comien¬ 
zan  en  60000,  el  cargador  BASIC  puede  ser 
añadido  sin  ningún  problema  a  cada  pro¬ 
grama  de  usuario.  Con  GOSUB  60000,  el 
programa  en  lenguaje  máquina  se  introducirá 
en  ia  memoria  y  estará  inmediatamente  a  tu 
ziz posición.  El  cargador  mueve  el  programa 
a  la  dirección  que  fue  asignada  en  la  línea 
60100  en  la  variable  AD. 


Ajuste  automático 

Los  saltos  absolutos  del  programa  en  len¬ 
guaje  máquina  van  a  ser  ajustados 
automáticamente  a  otras  direcciones  de 
salida  por  el  cargador.  La  señalización 
óptica  puede  realizarse  de  formas  diferentes: 
1 )  Realzar  dibujos  o  caracteres  que  sean  de 
otro  color  que  el  resto  del  contenido  del 
cuadro. 

2)  Iluminar  un  bloque  de  la  pantalla.  Para 
ello  son  necesarios  los  siguientes  parámetros: 
—  Columna,  línea  (C,  F)  de  la  esquina  supe¬ 
rior  izquierda  del  bloque. 

—  Longitud  del  texto.  Concretamente  del 
fondo  (en  la  inversión). 

—  Modo  de  marcar  (M). 

La  entrada  del  primer  parámetro  y  la  Ua- 


Con  este  “marcador 
de  bloques”  tienes  a 
tu  disposición  rutinas 
para  colorear,  invertir 
y  hacer  señales 
luminosas.  Con  ello 
se  animan  las  tristes 
pantallas  de  datos. 


mada  al  programa  se  efectúa  mediante: 

SYS  AD,  C,  F,  L,  A,  CO,  M 

Donde  AD  es  la  dirección  de  comienzo  del 
programa  en  lenguaje  máquina  (fijado  en  la 
línea  60100).  El  código  de  color  CO  puede 
aceptar  valores  entre  1  y  15.  Aquí  se  trata  del 
código  usual  del  Commodore  (0=negro, 
l=blanco,  etc...). 

El  modo  de  señalización  acepta  números 
del  0  al  255.  Con  el  0  se  marca  el  bloque  con 
color,  con  I  se  invierte  el  color,  y  con  2  a  255 
se  ilumina  el  bloque  de  la  pantalla.  Entonces 
el  número  indica  cuántas  veces  se  debe  ilumi¬ 
nar  el  texto  (número  de  parpadeos).  En  caso 
de  que  M  sea  número  par,  se  caba  con  carac¬ 
teres  coloreados,  en  los  números  impares, 
con  fondo  coloreado  (RVS).  La  frecuencia  de 
destelleo  puede  graduarse  mediante  un  cam¬ 
bio  del  bucle  a  partir  de  SCOD5:  POKE 
AD+216,  número  (1—255) 

Un  número  grande  significa  destelleo 
lento,  y  uno  pequeño,  destelleo  rápido.  El 
bloque  más  pequeño  que  se  puede  marcar  es 
un  único  signo  (L=I,  A=l)  el  más  grande 
es  toda  la  pantalla  (  L=40,  A=25).  En  caso 
de  error,  la  longitud  y  altura  se  ajustan  como 
máximo  al  tamaño  de  la  pantalla.  No  aparece 
ningún  mensaje  de  error.  Durante  el  deste¬ 
lleo,  el  programa  no  se  puede  parar  mediante 
el  teclado.  El  único,  es  utilizar  RUN/STOP 
RESTORE. 

El  programa  de  demostración  proporciona 
una  pequeña  muestra  de  las  posibilidades  de 
este  “marcador  de  bloques".  ■ 
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PROGRAMA:  BLOCK.  DEMO  LISTADO  2 

1000  REM  BLOCKMARKER  DEMO  .17 

1010  GOSUB  1630  .139 

1020  :  .231 

1030  PRINT  CHR*(147>  .42 

1040  POKE  53280,0  .72 


1050  POKE  53281,0 
1060  PR=B2B 
1070  AD= 12*4096 


,210 

,  184 


1090  REM  BLOQUE  1  .234 

1100  SYS  PR, 5, 5, "BLOCKMARKER  ES  UN  .90 


1110  SYS  PR, 5, 6, "CODIGO  MAQUINA  PAR 
A  RESALTAR C2SPCI" 

1120  SYS  PR, 5, 7, “ZONAS  Y  TEXTOS  EN 
LA  PANTALLA  " 

1130  : 

1140  F=3: M=5: B=100: GOSUB  1480 
1150  : 

1160  REM  BLOQUE  2 

1170  SYS  PR,2, 12, " C2SPCIES  TAN  FACI 
L  DEC2SPCI" 

1180  SYS  PR ,2,13,"  USAR  QUE  SOLO  HA 
Y  " 

1190  SYS  PR ,2,14," C5SPCIUN  COMANDO: 
C3SPC3" 

1200  : 

1210  F=7:M=8:B=50: GOSUB  1530 
1220  : 

1230  REM  BLOQUE  3 

1240  SYS  PR ,17,16," CCOMMAI í 17SHIFTC 
3  CSHIFT*! CSHIFTCI  CCOMMS3 " 

1250  SYS  PR, 17,17, " CSHIFTB3SYS  AD,C 
,f,l,a,co,m:shiftb3" 

1260  SYS  PR ,17,18," CCOMMZ3  C 17SHIFTC 
3  CSHIFT*3  CSHIFTC3  CCOMMX3 " 

1270  : 

12B0  F=10: M=20: B=1 0: GOSUB  1580 
1290  : 

1300  POKE  AD+216,200 
1310  SYS  AD, 13, 1,10, 22, 13, 7 
1320  : 

1330  SYS  PR ,30,12,"!" 

1340  POKE  AD+216,30 
1350  SYS  AD, 30, 12, 1,1, 1,51 
1360  : 

1370  SYS  AD, 0,0, 40, 25, 14,5 
1380  : 

1390  F= I NT ( 1 5*RND ( 1 ) ) : M=5: B=INT ( 1 00 

•  RND ( 1 >  *10) : GOSUB  1570 

1400  F=INT(15*RND(1) ) : M-7: B=INT < 100 

*RND (1)+10) : GOSUB  1480 

1410  F=INT(15*RND(1) ) : M=9: B=INT < 100 

*RND(1)+10) : GOSUB  1530 

1420  : 

1430  GOTO  1100 
1440  : 

1450  END 
1460  REM 

1470  REM  BLOQUE  1 
1480  POKE  AD+216.B 
1490  SYS  AD,5,5,30,3,F,M 
1500  RETURN 
1510  : 

1520  REM  BLOQUE  2 

1530  POKE  AD+216.B 

1540  SYS  AD ,2, 12, 19,3,F,M 

1550  RETURN 

1560  : 

1570  REM  BLOQUE  3 

1580  POKE  AD+216,B 

1590  SYS  AD, 17,16,21,3,F,M 

1600  RETURN 

1610  : 

1620  END 

1630  REM  **  COMANDO  PRINT  AT  X,Y  ** 
1640  REM  **  SYS  PR ,  X ,  Y,  "TEXTO"  ** 
1650  : 

1660  FOR  1=828  TO  853:READ  A: POKE  I 

,A:NEXT 

1670  RETURN 

1680  DATA  032,253, 174,032, 158, 1B3,1 
38 , 072 , 032 , 253 ,174, 032 ,158,183,104, 
168 

1690  DATA  024,032,240,255,032,253,1 
74,076,164,170 


,42 
.  144 


.50 

.44 


192 


140 


156 

188 

176 

122 

102 


,64 


226 

215 

247 

27 

127 

21 

73 

67 

25 

61 

9 

81 

199 


21 

225 

121 

113 

141 

177 

247 

103 

139 

131 

27 

211 

155 

154 

78 


240 

252 

128 

56 

92 

36 

54 

96 

10 


178 


90 


BIBLIOTECA 


MODIFICACIONES 
DE  FUNCIONES  DEF  FN 


Por  Werner  Haak 


El  Commodore  tiene  un  BASIC  me¬ 
diante  el  cual  no  se  puede  redefinir 
el  comando  DEF  FN  en  plena  eje¬ 
cución  de  un  programa.  Se  puede 
■stüizar  para  calcular  determinados  valores  y 
calcular  funciones  en  general. 

1*  DEF  FNA(X)=2—  Xf  3+2/3-X|  2+X 
2*  PRINT  FNA  (7) 

Calcula  FNA  (X)  para  el  valor  X  ‘7’.  Sin 


Quien  desee  redefinir 
funciones  en  un 
programa  no  tiene 
suficiente  con  el 
BASIC  de 


El  programa  DEMO  funciona  hasta  1¡ 
línea  40,  al  igual  que  otro  programa  BASIC 
cualquiera,  ya  que  USR  es  un  comande 
BASIC  cualquiera.  En  la  línea  40  se  coloc; 
un  puntero  sobre  el  byte,  tras  el  carácter  de 
igualdad  en  la  línea  20,  después  de  habei 
realizado  un  llamamiento  a  FNF  (X),  \ 
entonces  se  aprovechará  la  función  con  e 


ser  reemplazado  por  una  valía tdel *es to*sign ^  Commodore.  Necesita  vector  usr 


ca  para  el  lenguaje  del  programador  que  la  Un  Utilitario  Dmnin  ?e 

unción  debe  ser  definida  en  el  programa  y  r  ^  ^  maqi 

que  no  puede  ser  cambiada  sin  parar  el  COmO  CSte.  terof 

mismo.  Esto  exige  el  trabajo  de  un  utilitario  tra  A 

que  modifique  la  función  según  las  necesida-  conte 

des  del  programador.  BAS1 

El  utilitario  transforma  una  cadena  de  correi 

caracteres  cualquiera,  llamando  a  la  función  Pr°gr 

FNF(...),  en  una  función;  y  la  utiliza  en  el  corj  c 

programa  que  esté  en  ejecución.  rutin2 

Principios  del  programa  utilitario:  Entl 

1)  El  vector  USR  se  coloca  en  su  propio  pro-  En 

grama  en  lenguaje  máquina.  USR 

2)  Se  introduce  la  función  deseada  en  una  diantí 

variable  de  cadena.  como 

El  indicador  de  funciones  DEF  FN  puede  en  la 

ser  desviado  por:  DEF  FN  (X)  =  USR  funcic 

1  AA$).  Además,  la  variable  de  funciones  _  siguiei 

que  figurar  entre  paréntesis  tras  FN.  I)  Tet 

4)  Toma  de  un  argumento  o  parámetro:  una  ni 

INPUT  “X”;X.  2)  Po 

5)  Utilización  de  la  función:  PRINT  FNF  (X).  mente 

Utilización  del  buffer  BASIC  ,  ,  Las 

p  ......  respuestas  del  programa,  al  u 

Este  programa  utiliza  el  buffer  de  entrada  de  datos  del  BASIC.  Por  desventaja  del  segundo  punto 
esto  se  puede  utilizar  únicamente  desde  programa:  debe  ser  exactamente  fijada:  un  espacio  de  ni 

10  INPUT  A$  más.  Los  cambios  posteriores 

20  INPUT  X  realizar. 

30  PRINT  USR  (AS)  Comodidad  sin  nórriiri 


oe  arranca  un  programa  en  lenguaje 
máquina  con  el  comando  USR.  En  el  pun¬ 
tero  para  los  nombres  de  variables  se  encuen¬ 
tra  A$.  Se  busca  la  variable  y  se  copia  el 
contenido  de  AS  en  el  buffer  de  entrada  del 
BASIC.  Aquí,  A$  se  transformará  en  los 
correspondientes  “TOKEN’  de  BASIC.  El 
programa  en  lenguaje  máquina  se  abandona 
con  el  comando  RTS,  y  se  trabaja  con  la 
rutina  FN  en  la  ROM  normal  de  BASIC. 

Entrada  de  funciones 

En  caso  de  que  la  variable  de  la  función 
USR  no  fuese  definida  anteriormente  me¬ 
diante  INPUT  o  algo  similar,  se  colocará 
como  variable  vacía.  El  argumento  quedará 
en  la  forma  en  que  se  entró.  De  la  toma  de 
funciones  en  BASIC  se  aprovecha  lo 


ado,  por  tanto  se  produce 
m  BASIC. 

ía  zona  definida  anterior- 


2)  Pokear  en  una  zona  definida 
mente. 

Las  desventajas  del  primer  punte 
a,  al  usuario;  y  la  pérdida  de  vari* 


Ademas  la  X  tiene  que  ser  la  variable  indefinida  en  A$;  por  ejemplo 
j  n  °  ^  Pr°grama  es  compatible  con  todas  las  ampliaciones 

de  BASIC;  por  ello  pueden  ser  empleadas  en  las  cadenas  de  caracte¬ 
res  sus  funciones. 

79  bytes  escondidos  en  un  REM 

El  programa  sólo  ocupa  79  bytes,  por  lo  que  puede  correr  libre¬ 
mente  por  la  memoria.  Puede  empaquetarse  incluso  en  una  línea 
REM.  La  programación  es  en  parte  compli¬ 
cada  (LDY#FF,  INY  en  vez  de  LDY#0),  pero 
sólo  así  se  pueden  evitar  los  bytes  libres.  La 
función  del  programa  se  puede  aclarar  con 

10  INPUT  “Función  f(x)=”;A$ 

20  DEF  FN  F(X)=USR  (AS)  n 

30  INPUT  “Argumento  X=”;X  U-l 

40  PRINT  FNF  (X) _ 


Comodidad  sin  pérdida  de  variables 

Todas  estas  desventajas  contrarrestan  la  potencia  del  programa. 
Para  una  es  posible  impedir  la  combinación  de  teclado  RUN/STOP 
RESTORE.  Con  ello  se  puede  evitar  una  parada  equivocada  concre¬ 
tamente  un  listado  no  autorizado.  Además,  no  es  problemática  una 
confortable  entrada  de  datos.  Es  posible  un  bucle  GET  sin  límite,  para 
la  entrada  de  datos.  Además,  la  rutina  es  muy  rápida  y  no  se  produce 
ninguna  pérdida  de  variables. 

Rutinas  BASIC  utilizadas 

—  CRUNCH  SA579:  El  contenido  del  buffer 
de  entrada  de  datos  BASIC  se  transforma  en 

_ el  “TOKEN”  correspondiente. 

FRMNUM  $  AD8A:  Comprobar  la  parte 
^  numérica  y  aprovechar  cualquier  expresión. 

-  ORDVAR  SBOE7:  Buscar  la  variable  de 


COMMODORE  WORLD 


91 


—  VARPTN  $47  puntero  de  variable. 

—  OOPTR  $4B  puntero  de  programa. 

—  TXTPTR  $7A  puntero  de  programa. 

—  Bl'F  $200  buffer  de  entrada  de  datos  en  BASIC. 


C2SPC 3828— 1019" 

70  PRINT"  COMIENZO  MAXIMO  ENC2SPC39  .14 
30" s  PR INT 

80  PRINT"  tSHIFTZ  DONA  DE  PROGRAMA C 3  .10 
SPC349I52  -  53247" 

90  PRINT"  COMIENZO  MAXIMO  EN  53178"  .166 
i PRINT 

100  PRINT"  CSHIFTL30S  VECTORES  DE  S  .100 
ALTO  DE  COLOCARAN" 

110  PRINT"  DESPUES  DEL  CSHIFTB3ASIC  .16 

,  CSHIFT03PCI0N  -  1" «PRINT 

120  INPUT"  CSHIFTM3 CSHIFTC3  -  CSHIF  .152 

TC30MIENZ0  DE  PROGRAMA«"|I 

130  IF  I<950  AND  I >827  THEN  180  .178 

140  IF  K53178  AND  I  >49151  THEN  180  .204 

150  IF  IO-l  THEN  30  .208 

160  I=PEEK(55)+256*PEEK(56) i I-I-69  .248 

170  P0KE56, INT ( 1/256) «P0KE55, ( (1/25  .130 

6) -INT  < I /256>  >  *256—1 1 CLRs I=256*PEEK 

( 56  )  +PEEK  <  55 ) 

180  P0KE7B6, INT (1/256) «P0KE7B5, ( (1/  .94 
256) —INT ( I /256> ) #256 

190  RESTORE  .240 

200  FOR  I-I  TO  1+69  i  READ  A  I  POKE  .  156 

210  IF  B09143  THEN  PRINTCHR*  ( 147)  »  .202 
PRINT» PRINT"  tSHIFTEIRROR  EN  DATAS" 

:  END 

220  REM  ENTRADA  EVENTUAL  CON  EL  COM  . 102 

ANDO  BOTO  FUERA  DE  PROGRAMA 

230  DATA  32,231,176,160,1,136,177,7  .154 

1,72,230,71,208,2 

240  DATA  230,72,177,71,133,75,200,1  .192 
77,71,133,76,104,168 

250  DATA  136,177,75,200,153,255,1,1  .86 
36,136,16,246,165,122 

260  DATA  72,165,123,72,169,255,133,  .233 
122,230,122,169,2,133 

270  DATA  123,32,121,165,230,122,230  .53 
,123,32,138,173,104,133 

280  DATA  123,104,133,122,96  .99 


»2 
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Por  Roland  Hank  y  Jürgen  Hank 


*****  los  "códigos  ilegales".  El  monitor  está 
*■  memoria  desde  SI 000  hasta  SIFFF.  y  se 
rsecuta  con  SYS  4096.  Se  pueden  utilizar  los 
-iruientes  comandos  (las  comas  separadoras 
poeden  sustituirse  por  espacios): 

I  el  canal  de  errores  del  floppy  se  leerá  y 
e— .:nrá  en  la  pantalla. 

\  dirección,  mnemónico:  El  mnemónico 
**  convetirá  a  los  valores  he.xadecimales 
correspondientes  y  se  escribirá  en  la  direc¬ 
ción  indicada.  Este  es  el  comando  para 
ensamblar. 

C  todos  los  comandos  posteriores  se  emi¬ 
ten  por  pantalla. 

D  dirección  de  comienzo,  dirección  final: 
a  zona  de  memoria  especificada  se  muestra 
desensamblada. 

F  dirección  de  comienzo,  dirección  final, 
código:  la  zona  de  memoria  especificada  se 
.leñará  con  el  código  señalado. 

G  dirección  de  comienzo:  se  llama  a  un 


Este  sistema  de  Ruetas-  A1  comienzar  estará  establecido: 

j  .1  ,  ,  Memoria  de  texto  $4000  -  S7FFF 

desarrollo  del  Memoria  de  etiquetas  $A  100  -  SBFFF 

lenguaje  máquina 

(MES)  ttene  las  tres  a,. 

cosas  que  se  vada  velocidad’  el  confortable  editor,  un 

n  .  manejo  simplificado  y  el  óptimo  aprovecha- 

necesitan:  monitor,  ™en‘°  ^  ia  memoria. 

pncamKlQrlnr  v  E"  caso  de  abandonar  el  ensamblador,  se 

CUad.lIlUld.UOI  y  puede  arrancar  de  la  siguiente  forma- 

reensamblador.  Todo 

en  un  solo  paquete.  “,y4„o"«b“0,i"eme  “,“*ío  “ 

Comandos  del  editor. 

STOP  para  la  edición.  Se  continúa  con 
cualquier  tecla  excepto  DEL. 

DEL  vuelve  al  modo  comando. 

Los  siguientes  pueden  abreviarse  mediante 
sus  dos  primeras  letras. 

LIST  lista  el  texto  fuente.  Funciona  como 
el  editor  del  BASIC,  pero  el  intervalo  debe  ir 
separado  por  coma  (LIST  10,559;  por  ejem¬ 
plo)  También  se  pueden  indicar  valores  en 
hexadecimal  ($)  o  decimal  (%),  indistinta¬ 
mente. 

FORMAT  listado  formateado.  FORMAT 
CLEAR  y  FORMAT  SET. 

AUTONUMBER  numeración  automática 
de  lineas.  Sintaxis  AU  espacio  entre  líneas. 
Al  introducir  AU  0  se  desconectará  la  nume- 
.  ,  ración  automática, 

en  buscar  caracteres  NUMBER  renumeración  de  líneas.  Sintaxis  NU  comienzo,  incre- 


c odigo:  se  busca  el  código  especificado  a  tra- 
■  e?  de  la  zona  de  memoria  señalada.  Se  pueden  buscar  caractere 
ASCII  si  se  indican  entre  comillas.  La  longitud  máxima  son 
caracteres. 

L  "nombre",  periférico:  se  carga  un  programa  desde  un  periféricc 
No  se  puede  dejar  ningún  espacio  libre  después  de  la  L. 

M  dirección  de  comienzo  dirección  final:  la  zona  de  memori 
-elas  direcciones  especificadas  se  lista  como  volcado  hexadecima 

P:  los  datos  se  envían  a  la  impresora. 

R:  se  mostrará  el  estado  actual  de  los  registros  A,  X,  Y  y  S. 

S  "nombre",  periférico,  dirección  inicio,  dirección  final  -F  1:  s. 
guarda  en  disco  la  zona  de  memoria  indicada.  08=disco,  01=cinta. 

T  dirección  inicio,  dirección  final,  nueva  dirección  inicial:  el  conte 
nido  de  la  zona  de  memoria  indicado  se 
copiará  a  partir  de  la  nueva  dirección. 

X  se  retorna  al  BASIC.  _ 


Ensamblador. 

El  programa  permite  al  u 
zonas  del  código  fuente 


C-64 

UNIDAD  DE  DISCO 


NUMBER  renumeración  de  línea 
mentó  entre  líneas. 

FIND  busca  una  determinada  sec 
/ texto/.  Aparecerá  la  lista  de  líneas 
DELETE  borra  una  serie  de  línea 
CLEAR  borra  todo  el  texto  fuent 
PUT  memoriza  el  fichero  de  textt 
GET  carga  un  fichero  de  texto, 
incluye  APPEND,  el  fichero  se  cargi 
en  memoria. 

OLD  recupera  un  texto  ya  borrad 

Otros  comandos: 

BASIC  retrocede  al  BASIC. 

BREAR  ¡ 
ensamblador 
1  SET  deten 


la  secuencia  de  caracteres.  Sintaxis  FI 
líneas  que  contienen  dicho  texto. 

■  líneas.  Sintaxis  DE  desde,  hasta, 
fuente. 

:  texto.  PU  “nombre”,  periférico. 

:xto.  GE  “nombre”  APPEND.  Si  se 
:  carga  sin  borrar  el  texto  actualmente 


BREAR  salta  el  monitor.  Se  vuelve  el 
ensamblador  con:  X  Y  SYS  8195. 

SET  determina  la  referencia  de  la  memoria. 
SE  comienzo  de  texto,  final  de  texto, 
comienzo  de  etiquetas,  final  de  etiquetas.  Si  sé 
tiene  que  modificar  la  zona  de  texto  fuente, 
serán  suficientes  los  dos  primeros  parámetros. 
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DIRECTORY  ver  directorio. 

DC  envía  comandos  al  disco.  Sintaxis:  DC  comando. 

TO  colocar  la  dirección  de  emisión.  TO  IEEE  para  impresora,  TO 
PET  para  volver  a  pantalla. 

RUN  dirección:  inicia  el  programa  objeto. 

LABEL  muestra  las  etiquetas.  LA  símbolo,  se  listará  la  tabla  y  su 
valor  indicado. 

ASSEMBLE  ensamblar  el  fichero  de  texto.  AS  (LIST  “nombre” 
APPEND). 

ASSEMBLE  LIST:  se  listarán  el  código  objeto  y  el  fuente. 

ASSEMBLE  “nombre”:  se  cargarán  los  datos  y  se  ensamblarán.  Si 
al  final  se  encuentra  un  APPEND  no  se  borrará  el  texto  actual  en 
memoria. 


.DE  dirección.  Define  una  etiqueta.  Ejemplo:  10RESET.  de 
$FCE2. 

.DS  longitud.  Colocación  de  un  buffer.  Se  salta  cierto  número  de 
bytes  en  el  ensamblado.  Ejemplo:  .DS  100  deja  libres  100  bytes. 

.OS  Si  se  indica  este  comando  el  código  objeto  se  escribe  en  la 
memoria.  Si  no  se  pone  sólo  se  comprueba  la  sintaxis  del  código 
fuente.  Suele  incluirse  siempre  al  principio  del  programa. 

Ejemplo:  10.BA  $C000;  ensamblar  a  partir  de  49152. 

20.OS;  escribir  código  objeto  en  memoria. 

30. ...sigue  programa  fuente. 

.EN  Se  indica  el  final  del  código  fuente.  Es  opcional. 


El  ensamblador  y  su  empleo 

Son  necesarios  dos  pasos  para  la  elaboración  del  código  objeto.  En 
el  primero  se  colocará  la  tabla  de  símbolos  y  se  llevará  a  cabo  una 
prueba  de  sintaxis.  En  el  segundo  se  escribirá  el  código  objeto  en  la 
memoria. 

El  procesador  6502  (6510)  conoce  trece  tipos  de  direccionamiento 
(ver  tabla  1).  Pero  este  ensamblador  tiene  algunas  peculiaridades. 

DIRECCIONAMIENTO  INMEDIATO:  LDA  #  “a”  corresponde 
a  LDA  #$41.  (A  excepción  de  #  “[ESPACIO]”  que  tiene  que  escri¬ 
birse  como  #$20  y  #  “;”  que  es  #$3B). 

LDA#1,  dirección  =  LDA#byte  bajo  de  la  dirección. 

LDA#h,  dirección  =  LDA#byte  alto  de  la  dirección. 
DIRECCIONAMIENTO  RELATIVO:  BEQ  dirección:  el  ope¬ 
rando  relativo  se  operará  independientemente,  BEQ=+10:  salto  de  10 
bytes  hacia  adelante;  BEQ=-20:  salto  de  20  bytes  hacia  atrás.  Tam¬ 
bién  (es  la  más  normal)  pueden  indicarse  etiquetas:  BEQ  LOOP  o 
BNE  SALTO  1. 

Sintaxis  del  programa  fuente:  cada  indicación  consta  de  cinco 
campos  como  máximos:  número  de  línea,  etiqueta,  comando,  mne- 
mónico,  operando  y  comentario;  siendo  todas  ellas  opcionales. 

*  EL  NUMERO  DE  LINEA  es  cualquier  número  entre  0-63999. 
*LA  ETIQUETA  no  puede  tener  como  primer  carácter  una  cifra,  y 
ha  de  ir  directamente  tras  el  número  de  línea  (sin  espacio). 

Ejemplo:  10SÁLTO  LDA  #$41 
15  JRS  $FFD2 
20  JMP  SALTO 

imprime  una  serie  infinita  de  “Aes”.  Las  etiquetas  aquí  son 
“SALTO”  y  “STROUT”. 

*  EL  COMANDO  (o  pseudo-código).  Estos  comandos  no  se  tradu¬ 
cen  al  código  máquina,  sino  que  son  interpretados  por  el  ensambla¬ 
dor.  Los  pseudo-código  constan  de  un  punto  seguido  de  dos  letras: 

*  BY  bytes.  Coloca  en  la  memoria  bytes  sueltos.  Pueden  indicarse 
en  decimal,  hexadecimal  o  binario;  separados  por  espacios.  Ejemplo: 
.BY  13  $FF“BCDE”%100  ensamblaría  los  valores  13,255,66,67,69  y 

.SI  valor.  Coloca  en  la  memoria  una  palabra  de  16  bits.  Ejemplo: 
SI  300  coloca  los  valores  44,1  (byte  bajo,  alto). 

.FP  valor.  Coloca  en  la  memoria  el  valor  convertido  al  formato  de 
coma  flotante  (5  bytes).  Ejemplo:  .FP  123. 


*  EL  MNEMONICO  puede  ser  cualquiera  mnemónico  válido. 
Aquí  son  aceptados  solamente  los  comandos  del  6502  (incluso  ilega¬ 
les;  ver  cuadro  2).  Tienen  que  estar  separados  de  la  etiqueta  por  al 
menos  un  espacio.  Ejemplo:  2  LDA  $01;  el  mnemónico  es  "LDA" 

*EL  OPERANDO  debería  ir  separado  del  mnemónico  por  al 
menos  un  espacio,  para  que  sea  más  legible.  En  el  ejemplo  anterior  el 
operando  es  “$01”. 

*  EL  COMENTARIO,  se  indica  con  un  punto  y  coma.  Ejemplo:  32 
LDA  #  1;  cargar  el  acumulador  con  “1”. 

Mensajes  de  error. 

COMMAND  ERROR  comando  falso  en  modo  directo. 

SYNTAX  ERROR  sintaxis  errónea  en  un  comando  o  en  el 
texto  fuente. 

1NPUT  LINE  TOO  LONG  ERROR  la  línea  tiene  más  de  79 
caracteres. 

MISSING  FILE  ÑAME  ERROR  no  se  ha  indicado  nombre  de 
fichero. 

FILENAME  TOO  LONG  ERROR  el  nombre  tiene  más  de  12 
caracteres. 

LABEL  NOT  FOUND  LONG  ERROR  no  se  ha  encontrado  una 
etiqueta. 

1LLEGAL  QUANTITY  ERROR  algún  valor  se  sale  de  los  límites. 
ILLEGAL  LINE  NUMBER  ERROR  número  de  línea  mayor  de 
63999. 

SOURCE  CODE  TOO  LONG  ERROR  texto  fuente  demasiado 
largo. 

LABEL  ALREADY  EX1ST  ERROR  etiqueta  repetida. 
BRANCH  TOO  LONG  ERROR  un  salto  relativo  se  sale  del  límite 
(+127  ó  -128). 

ADDRESS  ERROR  no  existe  la  dirección  indicada. 

LABEL  DEFINITION  ERROR  error  al  definir  los  caracteres  de  la 
etiqueta. 

Para  que  tengáis  una  idea  más  clara  de  cómo  funciona  el  ensam¬ 
blador  tenéis  el  listado  7  (un  programa  típico  en  un  monitor)  y  el 
listado  8  (el  mismo  programa  con  el  ensamblador  MES). 

El  reensamblador. 

El  reesamblador  produce,  de  un  programa  en  lenguaje  máquina, 
un  texto  fuente  editable  con  el  MES.  Por  motivos  de  velocidad  el 
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programa  está  enteramente  en  código  máquina.  Se  conecta  con  SYS 
Hy  que  indicar  algunos  datos  sobre  el  programa  en  c.m: 

—Dirección  de  comienzo  y  final  del  programa. 

—Dirección  donde  se  quieren  memorizar  las  etiquetas  (valen  zonas 
ácbajo  de  ROM).  Hay  que  tener  cuidado  para  que  esta  zona  no  se 
aaezcle  con  el  programa. 

—Desconectar  Basic/ Kernal  (s/n)  para  poder  ensamblar  progra¬ 
nas  que  se  encuentren  debajo  de  ROM. 

—Dirección  de  tablas.  En  muchos  programas  de  c.m.  aparecen 
•_í5ias.  Dado  que  no  se  pueden  editar  como  mnemónicos  hay  que 
indicárselo  así  al  programa.  Después  de  señalar  las  direcciones  teclea 
~a "  para  salir  de  esa  opción. 

—Al  final  hay  que  indicar  el  nombre  del  fichero  fuente.  A  este 
i :  mbre  (como  siempre  que  se  utilice  el  ensamblador)  se  le  añade  la 
i  te  tilla  “.SRS”  indicador  de  código  fuente.  Podría  ser  que  por  la 
: :  etilla  “.SRC”  indicador  de  código  fuente.  Podría  ser  que  por  el 
i-íoritmo  que  emplea  el  reensamblador  se  quedará  alguna  etiqueta 
sn  señalar;  en  este  caso  habría  que  añadirla  a  mano. 

D  convertidor. 

Si  quieres  elaborar  un  texto  fuente  con  un  Macro  Ensamblador 
cualquiera  (abreviado  MAC  o  MAE)  desde  el  ensamblador  MES, 
aenes  que  convertir  este  texto  a  otro  formato.  Esta  función  la  realiza 
;  programa  CONVERT  (conversor).  Tan  solo  pide  dos  datos:  el 
-o  mbre  del  texto  fuente  MAC  y  el  del  texto  fuente  MES 

i .je  se  va  a  crear.  En  ambos  casos  se  añade  “.SRC”. 

Cómo  teclear  los  listados. 

El  primer  listado  lo  puedes  teclear  como  un  programa  normal.  En 
los  demás  casos,  haz  los  POKEs  correspondientes  antes  de  empe¬ 
zar  a  teclear  o  cuando  vayas  a  seguir  un  listado  que  tengas  medio 
tecleado  (en  este  caso  hazlos  antes  del  LOAD).  Grábalos  por  sepa¬ 
rado.  Para  grabar  lo  que  es  nada  más  código  máquina  de  cada  pro¬ 
grama  teclea  los  siguientes  pokes; 

1  Para  el  MONITOR:  POKE43,0:  POKE44,16 
POKE  45,0:  POKE46,32 
SAVE  “MES-MONITOR”, 8 

2.  Para  el  ENSAMBLADOR:  Ejecútalo  y  a  continuación  carga  el 
.atado  5  (haciendo  antes  los  pokes  que  se  indican).  El  se  encargará  de 
grabarlo. 


cuadro  i:  Modos  de  direccionamiento 

IMPLICITO . 

....  TXA 

ACUMULADOR  . 

....  ASL 

A 

ABSOLUTO  . 

....  LDA 

scooo 

PAGINA  CERO  . 

....  STA 

$01 

INMEDIATO  . 

....  LDA 

#5 

ABSOLUTO  EN  X  . 

....  LDA 

$CF00,X 

ABSOLUTO  EN  Y  . 

....  LDA 

$CFOO,Y 

INDIRECTO  EN  X  . 

....  STA 

($60,X) 

INDIRECTO  EN  Y  . 

.  STA 

($60),  Y 

PAGINA  CERO,  X  . 

.  STA 

$FB,  X 

PAGINA  CERO,  Y . 

.  STA 

$FB,  Y 

RELATIVO  . 

.  BEQ 

=+10 

INDIRECTO . 

.  JMP 

($1000) 

cuadro  2:  Los  códigos  ilegales 

El  6502  (y  el  6510)  es  capaz  de  manejar  algunas  instrucciones 
que  no  aparecen  en  los  manuales  ni  en  las  especificaciones  de 
funcionamiento.  Comandos  como  LAX  que  sirven  para  cargar  el 
acumulador  y  el  registro  X  a  la  vez  ahorran  tiempo  tiempo  y 
memoria.  Las  instrucciones  “ilegales”  que  puede  manejar  el  MES 
son  las  siguientes:  AAX,  DCP,  ISC,  LAX,  RLA,  RRA,  SLO, 
SRE.  Sus  modos  de  direccionamiento,  significado  y  registros  a  los 
que  afectan  han  sido  comentados  ampliamente  en  el  “Rincón  del 
código  máquina”  (Commodore  World  27  —junio—  páginas 
59-62). 


3.  Para  el  REENSAMBLADOR:  los  mismos  pokes  que  para  el 
monitor  seguidos  de  SAVE  “MES-REASSEMBLER”. 

4.  Para  el  CONVERSOR:  POKE  43,1:  POKE  44,8 

POKE  45,189:  POKE46,ll 
SAVE  “CONVERT”, 8 

Es  muy  importante  que  los  programas  se  graben  con  este  nombre, 
para  que  luego  el  cargador  (listado  1)  pueda  reconocerlos.  ■ 
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MACH  2 

Por  Jiirgen  Mühlbach 


Cuando  alguien  intenta  hacer  varias 
cosas  al  mismo  tiempo,  pronto 
aparecen  problemas.  Los  ordena¬ 
dores  son  más  adecuados  para  ello: 
un  gran  ordenador  puede  ejecutar  simultá¬ 
neamente  docenas  de  programas.  En  este 
proceso  “Multitarea”,  se  pasa  muchas  veces 
por  segundo  de  una  tarea  a  otra,  aunque  el 
cambio  tiene  lugar  tan  rápidamente  que  cada 
usuario  no  se  da  cuenta  de  que  está  compar¬ 
tiendo  el  ordenador  de  otra  persona. 

MACH  2  funciona  según  este  mismo  prin¬ 
cipio,  duplicando  las  posibilidades  del  C-64. 

Por  ejemplo,  pueden  escribirse  dos  progra¬ 
mas  de  ajedrez  y  hacerlos  jugar  uno  contra 

En  una  rutina  especial  de  interrupción  se 
intercambian  los  contenidos  de  las  páginas  de 
memoria  0  a  2.  Con  el  fin  de  que  el  C-64  no 
ocupe  todo  su  tiempo  en  transferencias  de  las 
tres  páginas,  no  se  interrumpe  el  proceso  en 
cada  interrupción  propia  del  sistema  opera¬ 
tivo.  En  la  memoria  de  pantalla  serán  exclui¬ 
dos  los  POKES.  Entre  las  partes  de  pantalla 
hay  una  línea  con  los  principales  parámetros 
visibles  permanentemente. 

Prioridad  de  modificación 

Mediante  el  botón  de  fuego  del  joystick 
se  puede  cambiar  la  pantalla  de 
entrada.  Los  parámetros  restantes  se  selec¬ 
cionan  mediante  movimientos  de  joystick  a 
derecha  e  izquierda.  Mediante  los  paráme¬ 
tros  PR1  PR2  es  posible  modificar  la  priori¬ 
dad  de  proceso. 

Para  cada  proceso  se  puede  ajustar  la  tecla  RUN/STOP 
(RSO,  RS1).  Moviendo  el  joystick  en  vertical  se  selecciona  blo¬ 
queo/  no  bloqueo.  La  tecla  STOP  funcionará  en  un  programa  siempre 
que  RSO  o  RSI  esté  en  Y  (si). 

ISO  activa  el  flag  0. 

!WO  esperar  con  el  flag  de  STOP  activado. 

!CO  desactivar  el  flag  de  STOP  0. 

!S1,  !W1,  !C1:  como  0,  referido  al  flag  de  STOP  1. 

!I  poner  la  pantalla  en  la  modalidad  actual. 

¡X  cambiar  la  pantalla  de  entrada. 

!1  desactivar  la  multitarea. 

!2  reactivar  multitarea. 

!P  (X)  desplaza  una  expresión  numérica  en  la  memoria  de 
comunicaciones. 

!USR  (0)  extrae  una  expresión  de  la 


MACH  2  duplica  los 
procesos  del  sistema 
operativo,  así  puede 
ejecutar  dos 
programas  en 
paralelo,  en  modo 
“Multitarea”. 


!Z  Pone  a  cero  el  indicador  de  memoria 
(borra  memoria). 

!F  Establece  el  color  de  la  línea  del  sistema. 
RUN/STOP  RESTORE  vuelve  al  BASIC. 
Las  instrucciones  S,  W  y  C  sirven  para  la 


sincronización  de  procesos.  Cada  uno  de  los 
procesos  puede  establecer  y  borrar  flags  de 
STOP. 

Dos  cortos  programas  de  ejemplo  servirán 
para  ilustrar  la  interacción  de  las  instruccio¬ 
nes  flag  de  STOP  y  las  de  memoria. 

Cambios  de  doble  pantalla 

Mediante  el  joystick  se  selecciona  como 
pantalla  de  entrada  real  la  parte  supe¬ 
rior  (0)  y  se  comienza  el  programa  con  RUN. 
El  programa  0  se  inicia  inmediatamente, 
activándose  el  flag  de  STOP  0  (ISO)  y  a  con¬ 
tinuación  espera  hasta  que  se  borra  el  flag 
por  el  Proceso  1 .  Mediante  el  botón  de  fuego 
del  joystick  se  selecciona  entonces  la  pantalla 
1  y  se  inicia  el  Programa  1.  En  caso  de  que  un 
proceso  esté  esperando  el  flag  de  STOP  o  el 
acceso  a  la  memoria  de  comunicación,  se  eje¬ 
cuta  el  otro  proceso  a  velocidad  de  cálculo 
completa.  El  proceso  de  espera  no  puede  ser 
interrumpido  mediante  la  tecla  STOP. 

Si  un  proceso  lee  sin  criterio  de  interrup¬ 
ción  permanentemente  números  de  la  memo¬ 
ria  de  comunicaciones,  en  caso  de  interrup¬ 
ción  del  segundo  proceso,  que  produce  los 
datos,  permanecerá  en  estado  de  espera. 

Si  el  programa  que  se  ejecuta  en  la  mitad 
superior  desactiva  la  multitarea  y  la  pantalla 
inferior  es  la  pantalla  de  entrada,  después  de 
la  interrupción  del  primer  proceso  el  sistema 
queda  inactivado.  En  modalidad  de  pro¬ 
grama  debe  ingresarse  siempre  !I:!1,  para 
asegurar  que  se  seleccione  la  pantalla  de 
entrada  real. 

¡¡ATENCION!!  Para  evitar  complicaciones,  deberá  desactivarse  la 
modalidad  multitarea  siempre  que  deban  emitirse  datos  por  la 
impresora. 

LOAD  modificado 

Una  modificación  de  la  rutina  LOAD  impide  que  se  sobreescriba  el 
límite  superior  de  esta  área.  El  intento  de  cargar  un  programa 
demasiado  largo  dará  lugar  a  un  mensaje  LOAD  OUT  OF 
MEMORY  ERROR.  Esta  restricción  no  existe  para  programas  en 
lenguaje  máquina. 

Cuando  hay  instrucciones  MACH  2  después  de  un  THEN,  deben  ir 
dos  puntos  después  del  THEN. 

Los  dos  programas  de  demostración  se  ejecutan  en  paralelo.  Pri¬ 
mero  se  carga  DEMOl  en  la  pantalla  inferior  y  se  pone  en  marcha 
mediante  RUN.  Seguidamente  se  pide  cargar 
DEMOO  e  iniciarlo,  lo  cual  tiene  lugar  en  la 
pantalla  superior.  A  continuación  ambos 
programas  realizan  interactivamente  las  po¬ 
sibilidades  del  MACH  2. 
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Subdivisión  de  espacio  de  memoria 

El  programa  consiste  en  una  parte  de  lenguaje  BASIC  y  otra  de 
lenguaje  máquina.  Al  ejecutar  el  programa  se  carga  el  código 
máquina  y  se  pide  la  división  del  espacio  de  memoria  entre  ambos 
procesos. 

MACH  2  ocupa  el  espacio  de  memoria  entre  $C000  y  SC781.  El 
área  de  memoria  entre  $A000  y  SFFFF  no  está  disponible  para  el 
usuario. 

Para  grabar  el  programa  de  lenguaje  máquina  después  de  efectua¬ 
dos  los  POKES,  teclead  lo  siguiente: 

POKE  43,  0:  POKE  44,  192:  POKE  45,  130:  POKE  46,  199:  SAVE 
“MACH2.C000”,8 

Con  esto  quedará  grabado  el  programa  en  forma  de  código 
máquina,  a  partir  de  la  dirección  SCOOO.  ■ 
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270  DATA  9 

271  DATA  8 

272  DATA  8 

273  DATA  8 

274  DATA  3 

275  DATA  9 

276  DATA  C 

277  DATA  C 

278  DATA  C 

279  DATA  8 

280  DATA  E 

281  DATA  E 

282  DATA  F 

283  DATA  9 

284  DATA  E 

285  DATA  F 

286  DATA  t 

287  DATA  F 

288  DATA  E 
28?  DATA  t 

290  DATA  E 

291  DATA  F 

292  DATA  1 

293  DATA  F 

294  DATA  F 

295  DATA  C 

296  DATA  E 

297  DATA  F 

298  DATA  E 
29?  DATA  F 

300  DATA  F 

301  DATA  E 

302  DATA  4 

303  DATA  í 

304  DATA  E 

305  DATA  C 

306  DATA  3 

307  DATA  l 

308  DATA  E 

309  DATA  I 

310  DATA 

311  DATA 

312  DATA 

313  DATA 

314  DATA 

315  DATA 

316  DATA 

317  DATA 

318  DATA 

319  DATA 

320  DATA 

321  DATA  : 


237 

6 

157 
162 

233 
186 
55 

244 
163 
6 

121 

158 
53 
154 

245 
86 
B3 
74 

47 
210 
237 

48 
17? 
172 
209 
92 
95 

234 

135 
76 
177 

136 
153 
206 

235 
120 
19 


,62 
,45 
,220 
,  145 


43 

160 

227 

170 

123 
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19  PRINT  "  C RVSON ]SC  1 CRVSOFF]  =  EN 
TRADA  DE  PANTALLA  1 

20  PRINTi PRINT  "  COMIENCE  EL  EJEMPL 
O  Y 

21  PRINT  "  SIGA  LAS  INDICACIONES 

22  !  W0 

23  PRINT "CCLR] CCRSRD]  QUE  DEJAN  LOS 
PARAMETROS  S I SU I ENTES 

24  PRINT  "  POR  MEDIO  DEL  JOYSTICK  E 
N  LA  PRIORIDAD 

25  PRINT  “  DEL  PROGRAMA 

26  PR I NT i PRINT  ■  C RVSON 3PR0 CRVSOFF] 
C  2SPC 1 Y  C  2SPC ] C RVSON ] PR 1 1 RVSOFF I 

27  PRINT «PRINT  «  ASI  COMO  EL  BLOQUE 
O  DEL  RUN/STOP 

28  PRINT  *  LAS  TECLAS  PARA  PRQ  0  BZ 
W  1C2SPC3SON  i 

29  PRINT «PRINT  ”  C RVSON 3RS0C RVSOFF 3 
C  2SPC  ]  Y  C  2SPC  3  I  RVSON  1 RS 1  C  RVSOFF  1 

30  ! S0« ! W0 

31  PRINT  "CCLR]" 

32  PRINT» PRINT  "  EN  LOS  PROXIMOS  PA 
SOS  SE 

33  PRINT  "  DEMOSTRARA  EL  EFECTO  DE 
PRIORIDADES. 

34  PRINT» PRINT  "  PULSE  EL  JOYSTICK 
A  LA  IZQUIERDA, 

35  PRINT  ”  HASTA  QUE  SE  AUMENTE  CRV 
SON 3PR0 CRVSOFF]. 

36  PRINT"  CON  JOYSTICK,  ARRIBA  LA  P 
RI ORI DAD 

37  PRINT  -  AUMENTA  (  MAXIMO  =  9  >, 

38  PRINT  "  CON  JOYSTICK  ABAJO  SE  DI 
SMINUYE, 

39  PRINT  "  <  MINIMO  -  1  ). 

40  ! S0« !W0 

41  FOR  1-1  TO  10001 PRINT  I«NEXT  I 

42  PRINT  "  CCLR]  CCRSRD]  SUCEDE  LO  MI 
SMO  CON  EL  BLOQUEO 

43  PRINT  "  BZW.  PULSA  LA  TECLA  RUN/ 
STOP  i 

44  PRINT» PRINT  “  CON  JOYSTICK  IZQD. 
/ARRIBA  SE  ELIGE, 

45  PRINT  "  CON  CURSOR  ABAJO/ ARRIBA 
BLOQUEO/DESBQ. 

46  PRINT  "  CRVSON3YC RVSOFF]  RUN/STO 
P  ACTIVO 

47  PRINT» PRINT  "  [ RVSON ]  N  C RVSOFF ]  R 
UN/STOP  IGNORADO. 

48  ! I  ■  GOSUB  185 

49  PRINT  "CCLR]"»!C1 

50  PRINT «PRINT  “  PASAMOS  AHORA  AL  P 
ROGRAMA 

51  PRINT «PRINT  "  C RVSON ] MACH2C RVSOF 
FJ  -  SUS  COMANDOS  PROPIOS. 

52  PRINT» PRINT  •  C RVSON 3MACH2C RVSOF 
F]  TIENE  14  NUEVOS 

53  PRINT  "  COMANDOS  BASIC,  DESARROL 
LADOS  PARA 

54  PRINT  "  EL  TRABAJO  DE  MULTITAREA 


57  PRINT  " CCLR] CCRSRD]  C RVSON 3MACH2 
I RVSOFF]  -  SYSTEMA  " 

58  PRINT» PRINT  "  C RVSON ]  !  X  C RVSOFF ] C 
2SPC] CAMBIO  DE  ENTRADAS  DE  TEXTO 

59  PRINT"  I RVSON ]  !  I  C RVSOFF ] C 2SPC ] EN 
TRAR  TEXTO  =  EJECUTAR  PROGRAMA 

60  PRINT  u  C RVSON] !S0C RVSOFF],  CRVS 
ON] ! SI CRVSOFF]  PONER  FLAGS  DE  STOP 


62  PRINT  "  C RVSON]  !  W0  CRVSOFF],  CRVS 
ON] !W1 CRVSOFF]  ESPERAR  LA  CAIDA  DEL 

STOPFLAG 

63  PRINT  »  C RVSON] ! 1 CRVSOFF] C2SPCIC 
AMBIAR  AL  MODO  S I NPLE-T AREA 

64  PRINT  "  C RVSON 3 !2CRVS0FF]C2SPC3C 
AMBIAR  AL  MODO  MULTI -TAREA 

65  !S0»  !  W0 


66  PRINT  ” C CLR ] C 2CRSRD 3  ! XC3SPC3EL 
JOYSTICK  ACCIONA 

67  PRINTiPRINT  "  ! I C3SPC JCAMBI A  LA 
PANTALLA  DE  ENTRADA 

68  PRINT  "  AL  FINAL  DEL  PROGRAMA. 

69  PRINT  ”  EL  TEXTO  Z.  B.  EN  LA  LIN 
EA  DE  PROGRAMA 

70  PRINT  “71  !  I 

71  !  I 

72  PRINT  “  DEL  DEMO0 .  RESULTA C2SPC] 
IC2SPC3CRVSON3SCC RVSOFF]  =  0" 

73  GOSUB  185 

74  PRINT» PRINT  "  EN  LA  LINEA 

75  PRINT  "  77  ! X C 3SPC] HACE C3SPC] QUE 

76  PRINT  "  EL  TEXTO  SE  TRANSFORME C 2 
SPC3» C2SPC3C RVSON] SC CRVSOFF]  -  1 

77  ! X» ! C1 i ! S0» !W0 

78  PRINT  "CCLR] CCRSRD]  GRACIAS  A  LO 
S  FLAGS  SE  PUEDEN  HACER 

79  PRINT  "  TRABAJAR! 2SPC ] 2 C 2SPC ] PRO 
GRAMAS,  COMO  ESTOS 

80  PRINT  "  DEMO0 C 2SPC ] Y C 2SPC ] DEMO 1 , 
EN  PERFECTO 

81  PRINT  "  SINCRONISMO. 

82  PRINT 

83  PRINT  "  PROGRAMA  i 

84  PRINT  "  SE  HACEN  CAMBIOS  CON  UNA 
LETRA  CADA  VEZ 

85  PRINT  "  EN  EL  DEMO0  Y  DEMOl. 

86  GOSUB  185» PRINT  " CCLR] " i GOSUB  13 


89  PRINT  "  LA  ESPERA  SIMULTANEA  DE 
AMBOS  PROGRAMAS 

90  PRINT  "  NO  SE  ADMITE,  EL  SISTEMA 

91  PRINT  "  QUEDA  PROFUNDAMENTE 

92  PRINT  "  DORMIDO. 

93  PRINT  "  POR  ESTE  MOTIVO  PUEDE  AP 
ARECER 

94  PRINT  «  7WAIT  ERROR 

95  PRINT  "  EN  ESTE  CASO  ESPERA  EN  M 
ODO  DIRECTO 

96  PRINT  "  Y  MUESTRA  INMEDIATAMENTE 

97  PRINT"  7ILLEGAL  DIRECT  ERROR 

98  GOSUB  IBS 

99  PRINT  " C CLR ] C 2CRSRD ]  CON  !1  DES A 
CTIVA  MULTITAREA 

100  PRINT  "  MIENTRAS  QUE,  CON  !2 

101  PRINT  "  SE  REACTIVA. 

102  PRINT» PRINT 


106  !Cli ! 50» !W0 

107  PRINT  " C CLR ] C 2CRSRD 3  CON  !F(X> 
CAMBIA  EL  COLOR  DE 

108  PRINT  "  LA  LINEA  DEL  SISTEMA. 

109  PR I NT i PR I NT  "  EJEMPLO C2SPC] i 

110  PRINT  "  FOR  1=0  TO  15  »  !F(I>  i 
NEXTI 

111  FOR  1=0  TO  15» ! F ( I ) i GOSUB  lB2»h 


113  PRINT  " C CLR 3 " i  !C1 

114  PRINT» PRINT  "  EL  C RVSON 3MACH2CR 
VSOFF3  -  FUNCIONA  CON  EL  SISTEMA 

115  PRINT"  DE  ALMACENAMIENTO  FIFO, 
DESDE  EL 

116  PRINT  *  PROGRAMA  EN  LA  ZONA  DE 


118  PRINT  "  CAMBIOS  ENTRE  UNO  U  OTR 
O  PROGRAMA 

119  PRINT  "  DE  LOS  2  QUE  SE  ESTEN  U 
TIL IZANDO 

120  PRINT  ”  RESUMEN 

121  PR I NT « PR I NT "  !P(X)  SE  MUEVE  EL 
VALOR  DE  X  AL  FIFO 

122  ! C 1 i ! 50» ! W0 
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123  PRINT  " C CLR 3  C 2CRSRD 3  DEMO0  LIST 
A  LOS  DATOS  DEL 

124  PRINT  "  FIFO,  PONE  UN  CARACTER 
VACIO! 

125  PRINT  "  Y  SACA  EL  CONTADOR  POR 
PANTALLA. 


128  IF  AX0  GOTO  127 

1 29  PRINT i PRINT"  SE  CAMBIA  EL  TEXTO 
DE  ENTRADA  Y  SALIDA 

130  PRINT  "  CON  REDONDEO  SOBRE  EL  C 
HR* -FUNCION.  "i PRINT 

131  A«USR(0> i PRINT  CHR*(A>| 

132  IF  A<  >13  GOTO  131 

133  PRINTi PRINT  "CCRSRD3FIN  DEL  DEM 


136  PRINT  " C2SPC3DDDD" 

137  FOR  I»1  TO  6 

138  PRINT  " C2SPC3DI3SPC3D" 

139  NEXT  I 

140  PRINT  "I2SPC3DDDD" 

141  GOSUB  1 82 i  REM  TIEMPO 

142  !S0l!Cll!W0  !  REM  1  SEGUIR,  0  P 
ARAR 

143  PRINT  CHR*(19> iPRINT 

144  PRINT  TAB (10) "EEEEE" 

145  PRINT  TAB (10) “E" 

146  PRINT  TAB  ( 10)  "E" 

147  PRINT  TAB ( 10) "EEEE“ 

148  FOR  1-1  TO  3 

149  PRINT  TAB (10) "E" 

150  NEXT  I 

151  PRINT  TAB (10) "EEEEE" 

152  GOSUB  182i  REM  TIEMPO 

153  ! S0i  ! C 1 1  ! W0  i  REM  1  SEGUIR,  0  P 
ARAR 

154  PRINT  CHR* ( 19) i PRINT 

155  PRINT  TAB (17) "MC5SPC3M" 

156  PRINT  TAB (17) "MMC3SPC3MM" 

157  PRINT  TAB (17) "M  M  M  M" 

158  PRINT  TAB ( 17) "MC2SPC3MC2SPC3M" 

159  FOR  1-1  TO  4 

160  PRINT  TAB ( 17) "MC5SPC1M" 

161  NEXT  I 

162  GOSUB  182i  REM  TIEMPO 

163  !  S0 1  ! C 1 1  W0  i  REM  1  SEGUIR,  0  P 
ARAR 

164  PRINT  CHR* ( 19)  i  PRINT 

165  PRINT  TAB (27) ”000" 

166  FOR  1-1  TO  6 

167  PRINT  TAB (26) "0C3SPC30" 

168  NEXT  I 

169  PRINT  TAB (27) "000" 

170  GOSUB  1B2:  REM  TIEMPO 

171  ! S0¡ ! Ci t ! W0  i  REM  1  SEGUIR,  0  P 
ARAR 

172  PRINT  CHR* ( 19) i PRINT 

173  PRINT  TAB (35)  "000" 

174  PRINT  TAB (34) "0C2SPC300" 

175  PRINT  TAB  (34)  "0C2SPC300" 

176  PRINT  TAB (34)  "0  0  0" 

177  PRINT  TAB (34) "0  0  0" 

170  PRINT  TAB (34) "00C2SPC30" 

179  PRINT  TAB(34) "00C2SPC30" 

180  PRINT  TAB (35)  "000" 

181  RETURN 

182  T-TI  i  REM  1/2  SEC  RETARDO 

183  IF  TI— T  <15  SOTO  183 

184  RETURN 

185  ! Ii PRINT! PRINTTAB (23) “SEGUIR  CO 
N  C  RVSON  3  RETURN I RVSOFF  3 " j 

186  GET  A*  i  IF  A*  -  ""  GOTO  186 

187  RETURN 


1  REM  DEM01  DEL  MACH2  .221 

2  REM  •  ¿>4 

3  PR I NT i PRINT"  CARGUE  DESPUES  EL  PR  .97 


9  PRINT  "CCLR3"! !Sli !W1 

10  PRINT  " C CLR 3 C 2CRSRD 3  COMIENCE  EL 
PROGRAMA  COLOCANDO 

11  PRINT  "  LOS  PARAMETROS  CON  EL  JO 
YSTICK. 

12  PRINT  "  PARA  ELLO  CONECTE  SU  JOY 
STICK  EL 

13  PRINT  "  EL  PORT  2 

14  PR I NT i PRINT  "  LA  PANTALLA  ESTARA 
PARTIDA  POR  UNA 

15  PRINT  "  LINEA,  EN  2  MITADESC2SPC 
3  I  " 

16  PRINT  "  MITAD  SUPERIOR  -  PANTALL 
A  0 

17  PRINT  "  MITAD  INFERIOR  -  PANTALL 

18  ! I i GOSUB  1481 ! C0 

19  PRINT  " C CLR 3 C 2CRSRD 3  PREPARESE  C 
ON  t RVSON 3 SC  01 RVSOFF 3 C2SPC3Y 

20  PRINT  "  PULSE  UNA  TECLA. 

21  PRINT  "  ESPERA  ALC3SPC3 "CHR* (34) 
"SEGUIR  CON  C RVSON 3 RETURN I RVSOFF 3 " C 
HR* (34) 

22  PRINT"  ESTO  YA  ES  INEFICAZ,  EL  C 
AMBIO 

23  PRINT"  PERMITE  IR  A  LA  PANTALLA 

0  . 

24  PR I NT i PR I NT  •  SI  USTED  QUIERE  PU 
EDE  IR  DE  NUEVO  A  LA 

25  PRINT  "  PANTALLA  1  . 

26  PRINT | 

27  GOSUB  148i !C0 

28  PRINT  "  C CLR 3  C 2CRSRD 3  CON  EL  JOYS 
TICK  ARRIBA/ IZQUIERDA  SE 

29  PRINT  “  PUEDEN  CAMBIAR  LAS  OPCIO 
NES. 

30  PR  I  NT  i  PRINT  "  EL  C  RVSON  3  >  [RVSOFF 
3  -  PUEDE  MOSTRAR  LAS  FUNCIONES 

31  PRINT  "  INMEDIATAMENTE. 

32  GOSUB  148! ! C0 

33  PRINT  " C CLR 3  C 2CRSRD 3  SE  CAMBIA  A 
LA  OTRA  PANTALLA 

34  PRINT  "  LA  CUAL  TIENE  1000  CARAC 
TERES. 

35  PRINT  "  PERMITE  UTILIZAR  EL  PROG 
RAMA  0, 

36  PRINT"  Y  EL  PROGRAMA  1  CON  LA 

37  PRINT  "  PRIORIDAD  QUE  HAYA  ELEGI 
DO, "  i  PRINT  "  QUE  OCURRE 

38  GOSUB  148i  !C0I  !S1 

39  FOR  1-1  TO  1000IPRINT  IiNEXT  I 

40  !M1 

41  PRINT  " C CLR 3 C 2CRSRD 3  CRVS0N3MACH 
2 [ RVSOFF 3  -  COMANDOS  ESPECIALES 

42  PR I NT i PRINT  "  LOS  NUEVOS  COMANDO 


45  !I  i  GOSUB  148i  !C0  .3 

46  PRINT  " C CLR 3 C CR8RD 3  CRVS0N3 ! P <X>  .148 
C RVSOFF 3 C4SPC 3 COLOCA  UNA  EXPREBION 

DE  X  EN 

47  PRINT  "  LA  MEMORIA  DE  COMUNICACI  .71 
ONES 

48  PRINT  "  CRVS0N3 ! ZCRVSOFF3I3SPC3R  .4 
ESET  DEL  PUNTERO  DE  MEMORIA 

49  PRINT  "  COMUN  .127 

50  PRINT  "  CRVSDN3 !F (X) CRVBOFF3C4SP  .102 
C 3 COLOR  DE  LA  LINEA  DEL  SISTEMA 

51  PRINT  "  X  AUXILIAR  0  Y  13  CAMBIA  .73 
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LENGUAJE  MAQUINA 
PASO  A  PASO 


Por  Jurgen  Zhan 


El  lenguaje  máquina  es  estimado  por  "Mr»  pe  a  rrrcirl  a  V\1p 

su  velocidad  y  extensión  o  varié-  U  Cí)  dgId.Ud.UlC 

dad.  Muchos  programadores  no  se  bllSCar  IOS  errOrCS  eil 
atreven  a  acercarse  al  Assembler. 

Sin  embargo,  el  aumento  de  rendimiento  IOS  prOSFcUTlclS  QC 

tiene  su  precio.  A  menudo  el  sistema  nos  ■.  •  ,  • 

abandona  sin  el  menor  aviso.  El  programa-  lCIlgllclJC  ITlíiCJUiricl. 
dor,  acostumbrado  a  los  mensajes  de  error  del  p  .  _ll_  nri 

BASIC,  notará  la  falta  de  dichos  mensajes.  r  dld  C11U,  Ull 

dXSSÜS:  simulador  paso  a 

importante  es  el  simulador  paso  a  paso.  Se  paSO  prOpOrClOlia.  Una 

trata  de  un  programa  que  simula  por  com-  *  ¡r  r 

pleto  al  procesador.  Con  ello  se  puede  ejecu-  ayiKia  Q6  HlUCnO 


trata  de  un  programa  que  simula  por  com-  *  r  r 

pleto  al  procesador.  Con  ello  se  puede  ejecu-  clVUClci  U 

tar  cualquier  programa  en  código  máquina  i 

paso  a  paso.  Después  de  cada  comando  se  VaJ 

representarán  los  registros  y  “FLAGS”  del 
procesador.  Si  se  desea,  el  programa  exami¬ 
nado  puede  correr  a  velocidad  rápida.  Ade¬ 
más  se  tiene  la  opción  de  dejar  solamente 
simular  intervenciones  de  escritura,  en  la 
memoria;  o  dejarlas  realizar  de  verdad. 

Pero  un  programa  de  tal  variedad  no 
es  solamente  de  utilidad  para  el  profesional 
del  Assembler.  Quien  no  tenga  aún  experien¬ 
cia  en  lenguaje  máquina  tiene  aquí  un  pro¬ 
grama  que  le  brinda  la  posibilidad  de  un 
estupendo  aprendizaje. 

Juego  normal  de  comandos 
y  códigos  ilegales. 

El  propio  simulador  está  escrito  en  código 
máquina.  Este  simulador  domina  todos 
los  comandos  normales  y  además  los  más 

importantes  códigos  ilegales.  Quien  no  conozca  todavía  estos  coman¬ 
dos  ilegales  encontrará  un  corto  resumen  en  la  tabla  1 .  En  el  cursillo 
de  código  máquina  apareció  un  completo  artículo  sobre  estos  códigos 
ilegales. 

En  la  salida  del  simulador,  ¿1  señala  en  la  pantalla  de  texto  el 
contenido  de  todos  los  registros  y  “FLAGS”  del  procesador. 

PC  AC  XR  YR  SR  SP  NV-BDIZC 
0000  00  00  00  20  FF  00100000 

Catorce  avisos. 


PC  contador  de  programa. 
AC  acumulador. 

XR  registro  x. 

YR  registro  y. 

SR  registro  de  estado. 

SP  puntero  de  la  pila. 

N  Flag  de  negativo. 

V  Flag  de  Overflow. 

B  Flag  de  Break. 

I  Flag  de  interrupciones. 


Z  Flag  de  cero. 

C  Flag  de  Carry,  bit  8  para  cálculos. 

El  simulador  paso  a  paso  ofrece  además  las 
siguientes  posibilidades: 

1.  — Entrada  del  contador  de  programa. 

2.  — Modificación  del  contenido  del  regis- 

3.  — Cambio  de  Flags. 

4.  — Modificación  de  los  contenidos  de 
memoria. 

5.  — Simulación  de  comandos. 

6.  — Salto  de  comandos. 

7.  — Simulación  real. 

8. — Recorrido  rápido  de  los  comandos. 

9. — Borrado  del  simulador. 

A  continuación  se  explica  con  más  detalle. 

1 .  — Para  decirle  al  simulador  en  qué  lugar 
de  la  memoria  se  encuentra  el  programa,  se 
pulsará  la  tecla  “P”.  El  ordenador  avisa  en  el 
centro  de  la  pantalla  con  el  mensaje:  PC? 
0000. 

2.  — Cambio  del  contenido  del  registro.  De 
forma  similar  que  con  el  contador  de  pro¬ 
grama,  también  pueden  cambiarse  los  conte¬ 
nidos  de  los  registros  x  e  y,  acumulador  y 
registro  de  estado.  Basta  con  pulsar  la  letra 
correspondiente  y  aparecerá  en  la  pantalla  el 
registro  a  cambiar. 

3.  — Cambio  de  Flags.  Sigue  el  mismo  sis- 


4. — Pulsando  la  tecla  M  se  puede  modifi- 
car  el  contenido  de  la  memoria  especificada. 
Se  indica  la  dirección  en  modo  hexadecimal 
y  se  pulsa  RETURN.  Se  indicará  el  conte¬ 
nido  de  la  dirección.  Si  se  desea  cambiar  de 
dirección,  se  pasa  a  la  simulación  real  (“E”  y  RETURN).  Ahora  el 
contenido  indicado  de  la  dirección  se  aceptará  con  RETURN  y  será 
transferido. 

5.  — Simulación  de  comandos.  El  contador  de  programa  se  encuen¬ 
tra  en  la  dirección  $8000  y  la  siguiente  indicación  se  encuentra  en  la 
dirección  de  la  pantalla.  Después  de  pulsar  la  tecla  de  espacio  se 
realiza  la  función  del  comando  activado.  En  el  registro  x  figura  $FF 
después  de  la  ejecución. 

Atención:  si  el  simulador  ejecuta  el  comando  RST  mientras  con¬ 
tiene  el  puntero  de  pila  $FF,  se  realizará  un  salto  a  la  dirección  $0000 
y  se  colocará  el  puntero  de  la  pila  a  $01,  ya  que  no  se  encuentra 
ninguna  dirección  de  salto  de  retroceso  en  la  pila. 

También  el  comando  BRK  será  simulado.  Además  saltará  a  las 
direcciones  que  se  encuentran  en  la  zona  de  memoria  65534  y  65535. 

6.  — Saltos  de  los  comandos.  Esta  posibilidad  se  aclara  con  el  ejem¬ 

plo  de  funcionamiento  de  la  rutina  del  sis- 
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Con  “C"  el  flag  carry  se  colocará  y  con  la  tecla  de  espacio  se 
ejecutará  el  comando.  Con  la  tecla  CRSR  DOWN  se  podrá  saltar  este 
comando. 

7.  Simulación  real.  Después  del  comienzo  del  simulador,  los 
comandos  que  modifican  el  contenido  de  una  linea  de  memoria  no 
ejecutarán  de  verdad,  sino  que  modificarán  únicamente  los  flags 
correspondientes.  Pero  también  se  pueden  ejecutar  estos  comandos. 
Pulsando  "E"  aparece  en  el  centro  de  la  pantalla  la  pregunta  que 
confirma  si  la  simulación  es  real  o  no.  Pulsando  RETURN  se  pasa  a 
la  simulación  real.  Ahora  también  se  ejecutarán  de  verdad  los 
comandos  de  escritura.  Este  modo  se  desconecta  pulsando  “E”  y 
RETURN  ante  la  opción  de  N. 

8.  Recorrido  rápido  de  comandos.  Pulsando  espacio  junto  con  la 
tecla  Commodore.  la  simulación  corre  en  el  paso  rápido.  Con  ello  se 
hace  trabajar  aceleradamente  largos  bucles  de  programa. 

Soltando  las  dos  teclas  se  pasa  de  nuevo  al  modo  de  paso  a  paso. 

9.  Borrado  del  simulador.  Se  abandona  el  simulador  pulsando 
RUN  STOP  RESTORE.  También  se  puede  abandonar  mediante  *. 


Resumen  de  los  códigos  ¡legales  del  6510. 

COMANDO  DESCRIPCION 

AAX  Registro  x  AND  acumulador. 

DCP  Decrementa  memoria  y  compara  con  el  acumulador. 

ISC  Incrementa  memoria  y  sustrae  el  Carry 
del  acumulador. 

LAX  Carga  el  acumulador  y  el  registro  x  en  la  memoria. 

RLA  Rota  la  memoria  hacia  la  izquierda  AND 
acumulador. 

RRA  Rota  la  memoria  a  la  derecha  y  suma  con  Carry 
al  acumulador. 

SLD  Corre  la  memoria  a  la  derecha  y  hace  OR  con 
el  acumulador. 

SPE  Corre  la  memoria  a  la  derecha  y  hace  EOR  con 
el  acumulador. 


TABLA  1 


Explicación  del  listado  de  Assembler: 


8000 

8003-8113 
8114-8123 
8 1 24-84C0 
84CI-84DD 
869C 

869F-87FD 

87FE-884A 

884B-8869 


Salto  para  el  comienzo. 

Salida  por  pantalla. 

Números  hexadecimales. 

Tablas  de  punteros  de  diferentes  rutinas. 
Borra  las  variables. 

Ejecutar  la  simulación. 

Rutina  de  entrada  y  tratamiento  del  registro. 
Saltos  de  retroceso  en  la  simulación 
y  de  comando. 

Situar  las  direcciones  del  comando  en  la  pila. 


886A-8CEA  Rutinas  del  programa  de  simulación. 

8D92-8DEE  Revisiones  del  simulador  y  control  de  la  pila. 
8DEF-8F5E  Cálculos  de  direcciones  relativas,  indirectas,  etc. 

8F5F-9036  Quitar  el  ensamblador. 

El  simulador  está  escrito  en  código  máquina  y  abarca  la  zona  de 
memoria:  $8000  a  $9200.  Si  se  utiliza  el  programa  desde  el  cargador 
BASIC,  debe  ser  reducida  la  memoria  libre  con: 

POKE  56,127:  CLR. 

El  programa  se  puede  salvar  en  disco  o  cinta  haciendo: 

POKE  43,0:  POKE  44,128:  POKE  45,55:  POKE  46,147:  SAVE 
“NOMBRE”,8.  ■ 
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DATA  DECKER 

COMMODORE 


LIBROS 


'OPWODORE  64  P-V* 

P.+I.V.A. 

COMMODORE  128 

P.V. P.+I.V.A. 

El  manual  del  cassette  para  el  C— 64  y  VIC-20 

1.696 

101  Todo  sobre  el  nuevo  C— 128 

2.332 

El  libro  de  ideas  para  el  C-64 

1.696 

102  C-128  consejos  y  trucos 

2.968 

I— ó4  consejos  y  trucos  I 

2.968 

103  C-128  interno 

4.240 

4 

:í?ks  y  Pokes  para  el  C-64 

1.696 

104  C-128  Peeks  y  Pokes 

1.908 

5 

Ii:cionario  para  su  C-64 

2.968 

105  C-128  para  principiantes 

1.908 

-?*guaje  máquina  para  el  C-64 

2.332 

106  El  gran  libro  BASIC  C-128 

2.544 

-r-guaje  máquina  para  avanzados  para  el  C-64 

2.332 

*  107  CP/M  para  Commodore  128 

3.392 

1-64  interno 

4.028 

*  108  Todo  sobre  el  floppy  1571/1570 

4.876 

«ráficos  para  el  C-64 

2.332 

*  109  Gráficos  para  el  C-128 

3.604 

1—64  en  el  campo  de  la  ciencia  y  la  técnica 

2.968 

*  110  Ampliaciones  hardware  para  C-64, 

C-128  4.028 

•■vtenimiento  y  reparación  del  floppy  1541 

2.968 

El  «anual  escolar  para  el  C-64 

2.968 

COMMODORE  AMIGA 

*::ótica  para  su  C-64 

2.968 

*  201  AMIGA  para  principiantes 

4.134 

** 

'::c  sobre  el  floppy  1541 

3.392 

1 5 

II  ensamblador 

2.332 

COMMODORE  C-16 

I-rroducción  a  la  inteligencia  artificial 

2.968 

301  C-16  para  principiantes 

1.696 

~táe  sobre  bases  de  datos  y  gestión  de  ficheros 

2.332 

'::o  sobre  impresoras  CBM  64-128 

2.968 

GENERALES 

1-54  consejos  y  trucos  II 

2.332 

6001  Todo  sobre  el  procesador  Z— 80 

4.028 

•II  libro  de  estadísticas  para  el  C-64 

2.968 

6201  Metodología  de  la  programación 

2.332 

ti  Commodore  64  como  traductor 

2.332 

6202  Metodología  y  prácticas  LOGO 

2.650 

1-64  rutinas  del  sistema 

2.332 

6203  Prácticas  BASIC  I 

2.332 

33 

.  sistema  operativo  GEOS 

3.392 

PROGRAMAS 


COMMODORE  64 

P.V. P.+I.V.A. 

-  1.1  ÍEXT0MAT 

6.552 

*0002  PROFIMAT 

6.552 

*0003  ADA 

13.104 

«304  ELECTROMAT 

4.592 

10005  PLATINE  64 

33.600 

COMMODORE  128 

70101  BASIC  128 

6.552 

Procesador  de  textos  con  juego  de  caracteres  castellano  y  catalán. 
Monitor  y  macroensamblador. 

Un  potente  lenguaje  de  programación. 

Diseñador  de  esquemas  de  circuitos. 

Diseñador  de  circuitos  impresos  con  trazo  automático. 

NOVEDAD 

í.87 


LVA  Y  PORTES  INCLUIDOS  EN  EL  PRECIO 

SOLICITE  FOLLETO  INFORMATIVO 

DATA  BECKER 

Ferré  Moret  S.A.  tí.  Córcega,  299  -  08008  BARCELONA 
Telfs.:  (93)  217  62  38  -  217  69  01  -  218  02  9  3 


TARDAREMOS  EN  VER 
ALGO  MECIDO. 


En  informática  ya  es  difícil  sorprender. 
Pues  bien,  Commodore  lo  ha  conseguido 
con  Amiga. 

Más  que  una  nueva  generación  de  orde¬ 
nadores,  el  Amiga  de  Commodore  repre¬ 
senta  un  nuevo  concepto.  Un  ordenador 
que  ofrece  una  serie  de  posibilidades  y 
abre  unos  caminos  que  hasta  hoy  eran  im¬ 
pensables. 

Entre  las  novedades  de  este  ordenador 
rofesional  destacan:  la  posibilidad  de  tra- 
ajar  con  un  procesador  de  32  bits  y  de  3 
coprocesadores  específicos,  actuando  los 
4  al  tiempo. 

Además,  Amiga  dispone  de  pantallas  y 
ventanas  configurables  con  una  resolución 
de  640  x  400  puntos  escogiendo  entre 


una  paleta  de  4.096  colores. 

Trabaja  con  4  canales  independientes 
polifónicos  con  voz  masculina  y  femenina, 
y  por  si  fuera  poco,  Amiga  de  Commodore 
es  el  único  ordenador  multitarea  que  puede 
efectuar  varios  trabajos  simultáneamente. 

El  precio  también  es  importante.  Por 
330.000  ptas.  ex.  IVA,  el  Amiga  incluye: 

-  Unidad  central  con  768  K  RAM. 

-  Monitor  de  alta  resolución  en  color  y  so¬ 
nido. 

-  Unidad  de  discos  de  880  K. 

-  Teclado  profesional  y  ratón. 

Por  mucho  que  avance  la  investigación 
en  el  campo  de  los  ordenadores,  tardare¬ 
mos  en  ver  algo  parecido. 


commodore 

Imagina  siempre  lo  mejor. 


Microelectrónica  y  Control ,  S.A.  Unico  representante  de  Commodore  en  España. 

c!  Valencia,  49-53  Tel.(93)  325 5702  08015  Barcelona  -  el  Ardemans,  8  Tel.  (91)  246 37 36  28028 Madrid 


